





650 
560 
570 
680 
690 
700 
710 
720 
750 

` 740 
750 
760 
770 
780 
790 
воо 
810 
в20 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


1090 


1100 
1110 
1120 
1130 
1140 
1150 
1160 


CURSOR O,1:PRINT SPC(59):CURSOR O,0:PRINT SPC(59); 
CURSOR 10,0:РОКЕ #75,95 

PRINT “WILT U NOG EEN TEKENING ZIEN (J/N) ?"; 

G=GETC: WAIT TIME S: IF G=0.0 THEN 680 

IF G-ASC("J") THEN POKE #75,32:GOTO 330 

IF G-ASC("N") THEN PRINT CHR$(12):PRINT :PRINT TAB(22);:END 
GOTO 680 

REM tt BOVEN LINKER HELFT OPTIE 2 

CURSOR 21,1:PRINT "50"; ТАВ (41); "1": 7=т: №7 

FOR R=1.0 TO N:FOR C=1.0 ТО Z-1.0 

IF (R-1.0)*(C-1.0)=0.0 THEN 770 
P(R,C)-P(G,C-1.0) +P (R21. 0, C) :GOTO. 780 

P(R,C)=1.0 

NEXT C:Z=Z-1.0:CURSOR 20,0:R%Z=INT(R) =РАТМТ RX;:NEXT R 
REM ЖЖЖ ONDER RECHTER HELFT OPTIE 2 

Z=N:N=2.0:FOR R=Z ТО 1.0 STEP -1.0:FOR C=Z TO N STEP -1.0 
ТЕ (R-Z)X(C-Z)-0.0 THEN 830 
P(R,C)=P(R,C+1.0)4+F(R+1.0,C0):G0TO 840 

P(R,C)=1.0 

NEXT C:N=N+1.0:CURSOR 40,0:RZ=INT(R) 

PRINT RZs" ";:NEXT R:GOTO 590 

REM ЖЖЖ BOVEN LINKER HELFT OPTIE 3 

CURSOR 11,1:FRINT "15 15"; TAB(41) 5 "16 16" 
M=Q: УЕТ: Z=INT (Ү/2.0) : BS=Z42. 02 Z1=Z 
72=71:75=72:Х4=75:Х5=Х4 

FOR 1=1.0 TO Zi:FOR J=1.0 TO Z 

ТЕ (J-1.0) £(I-1.0)-0.0 THEN 950 
PCI,J)=P(I,J-1.0)+P(I-1.0,J):G0OT0 940 

P(I,J)=1.0 

NEXT J:Z=Z-1.0:CURSOR 10,0: IX=INT (I) 

PRINT IZ;:NEXT І:М-71 

REM %%% BOVEN RECHTER HELFT OPTIE Ж 

FOR I=1.0 TO Zi:FOR J=Y TO X5+1.0 STEP -1.0 

IF I=1.0 OR J=Y THEN 1000 
P(I,J)=P(I,J+1.0)+P(I-1.0,J):G0T0 1010 

P(I,J)=1.0 


. NEXT J: X5=X5+1.0:CURSOR 20,0: IZ=INT CI) 


PRINT IZ;:NEXT I:N=Z2 
REM *** ONDER LINKER HELFT OPTIE 5 

FOR I=Y TO X4+1.0 STEP -1.0:FOR J=1.0 TO 72 

IF J=1.0 OR I=Y THEN 1070 
P(I,J)=P(I,J-1.0)+P(I+1.0,J):G0OT0 1080 

P(I,J)=1.0 

NEXT J:Z2=Z2-1.0:CURSOR 40,0: IZ=INT (І) 

PRINT IZs;:NEXT I:N-Z3 

REM ЖЖЖ ONDER RECHTER HELFT OPTIE 3 

FOR I=Y TO N+1.0 STEP -1.0:FO0R J=Y TO Z3+1.0 STEP -1.0 
IF J-Y DR I-J THEN 1140 
P(I,J)=P(14+1.0,3)+P(1,J+1.0):GOTO 1150 

P(I,J)=1.0 

NEXT J:Z3=Z3+1.0:CURSOR 50,0: IZ-INT(I) 

PRINT І7;:МЕХТ І: БОТО 590 


| 8080 2707 EPROM programming software 
assembled listing December 1978 p 104 


















À 8080 A tabcounter for your edit buffer 
É assembled listing August 1978 p 151 


ў 8080 Ап 8080 binary їаре monitor 
[ assembled listing February 1978 р 153 


i 8080 An Intel hex-format paper tape monitor 
assembled listing March 1978 p 162 


4 8080 Blockade—VDM-1 video game 
` assembled listing with object code November 1977 p 167 


8080 Cassette Operating System 
` assembled subroutine listings April 1977 p 129 


8080 Convert Motorola 6800 hex format to Intel format 
assembled listing with object code May 1977 p 109 


р 8080 Conway's Game of Life 
* assembled listing for Processor Technology's video display board 
* May 1977 p 138 


8080 Copy/Sort/Search data manipulation 
. assembled listing September 1978 p 136 


| 8080 Cromemco Dazzler graphics interface driver l 


assembled listing January 1978 p 153 


8080 Diablo printer drive routine 
assembled listing July 1977 p 25 | 


8080 Dr. Wang’s tiny BASIC 
assembled listing December 1976 p 89 


8080 Generalized string sorting routine 
BASIC and 6 assembled listings November 1978 p 131 


8080 WO driver for PERSCI 1070 intelligent disk controller 
- assembled listing September 1977 p 153 


8080 Punch and read Intel formatted tape 
assembled listing December 1977 p 152 


8080 Random Number Generator Program 


8080 Robot's random programming approach 
assembled listing April 1978 p 158 


8080 Text editor for XEK and PTCo Assemblers 
assembled listing October 1978 p 140 


8080 Video Chase—a game 

assembled listing with object code October 1977 p 167 
! | 

8080A Resident Operating System 

1K SOL assembled listing January 1977 p 90 ` 





Interface Age 


8080 IAPSTMInternational ASCII Publication Standard conversion 
asembled listing May 1978 p 79 


8080 IAPST™ International ASCII Publication Standard conversion 
assembled load-create-verify-dump listings June 1978 p 148 


8080 Intel hex format paper-tape punch program 
assembled listing with object code July 1977 p 155 


8080 Intelligent terminal program 
assembled listing with object code September 1977 p 75 


8080 Interval timer design 
5 assembled routines January 1978 p 127 


8080 Intrupped driven floppy disk controller for the S-100 bus 
assembled listing May 1978 p 152 


8080 Livermore BASIC Interpreter Part 1 
BASIC and assembled plot functions December 1976 p 115 


8080 Livermore BASIC Interpreter Part II 
assembled listing January 1977 p 97 


8080 Livermore BASIC Interpreter Part III 
assembled floating point math package listing February 1977 p 104 


8080 Livermore BASIC Interpreter Part IV 
assembled octal debugging listing March 1977 p 121 


8080 Look—byte look-up program 
assembled listing Мау 1978 p 167 


8080 Memory catalog program 
assembled listing May 1978 p 170 


8080 Memory object code search routine . 
assembled routine February 1977 p 121 


8080 Monitor initialization and printer control 
2 assembled Daisywheel listings October 1978 p 111 


8080 Morse Code generator 
assembled listing October 1978 p 89 


8080 Octal Monitor Program 
assembled listing February 1977 p 13 


8080 Piranha—game 
assembled listing with object code December 1977 p 166 


8080 Polymorphic Ideaboard software 
2 assembled routines May 1977 p 98 


assembled listing with a BASIC Chi-square subroutine February 1977 p 100 


8080/8085/8086 boeken 

D2 8080A/8085 ASSEMBLY LANGUAGE PROGRAMMING (Leventhal/Osborne) | 
D3 . 8080 PROGRAMMING FOR A LOGIC DESIGN (Osborne/Osborne) 

D4 8080 SOFTWARE GOURMET GUIDE & COOKBOOK (Findley/Scelbi) 


05  EDITOR/ASSEMBLER SYSTEM FOR 8080/8085 BASED COMPUTERS (Weller) 


D6 ОВОС: AN 8080 INTERPRETIVE DEBUGGER (Titus/Sams) 

07 KF2DOS: А FLOPPY DISK OPERATING SYSTEM FOR THE 8080 (Wellus) 
DB 8080 GALAXY GAME (Edwards/Scelbi) . 

D9 8080 STANDARD EDITOR (Edwards/Scelbi) 

D10 8080 STANDARD ASSEMBLER (Edwards/Scelbi) 

011 8080 STANDARD MONITOR (Edwards/Scelbi) ` 

D12 THE 8086 PRIMER (Morse/Hayden) 

D13 TEA: AN: 8080/8085 CO-RESIDENT EDITOR/ASSEMBLÊR (Titus/Sams) 


* D16 THE 8086 - BOOK (Rector & alesy? Osborne) 
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REM TITEL MENU MET LICHTPEN VO. о 
REM DATUM 26-12-81 | 
REM BRON (AUTEUR) M..J.BERKX 


КЕМ OPSLAG BAND NR.16; CODE LP1;NR oi 
: PRINT CHR$ (12) :COLORT © Š 4 
REM KEKKEEKOPRBOUW VAN MENUXXXXXXxxxx*x 


MODE О 
CURSOR 


POKE #BE4D+1, #8: POKE #BE4D—3, #E 


CURSOR 


6 
POKE #BBAF+1,#B:POKE #BBAF-2, #B 
CURSOR 6, 10: PRINT “Derde keuze" 


іш о 
6, ZO: PRINT "Eerste keuze" 
15: PRINT "Tweede keuze” 


POKE #B911+1,#B:POKE ЯВ911-5,%В 


Кісо.0 
CURSOR 
WAIT T 


rE2=0.0:K3=0.0 


GE “Plaats de lichtpen TUSSEN DE STREEPJES voor Uw keuze" 


IME 200 


КЕМ %%%%% DOORLOPEN VAN MENU МЕТ WIT БІ ОСЕЛЕХХЖЖЖ ХХХ Ж 


FOR N= 


POKE #BE4D-Z,#FE:POKEE #BE4D-1 


1.0 TO 10.0 


IF PEEK(HFDOÓ) ТАМО #20=#20 THEN GOSUR 500 
POKE #BE4D-1,0:POKE. #RE4D-3,0 
POKE #ВВАҒ-5, #ҒЕ: РОКЕ #BRAF—-1,#FF:FOR T=0.0 TO 100.0:NEXT 
IF РЕЕК(ЯҒПОО) IAND #20=#20 THEN GOSUR 600 
FOKE #BBAF-1,0:POKE #BBRAF-—3,0 


POKE #Н911—% 


IF PEEK(HFDOO) IAND 420-820 THEN GOSUR 700 
FOKE #B911-1,0:POKE ЯВ911-2,0 


NEXT 
REM x* 


*XX*X*XRESULTAAT VAN KEUZE OF GEEN KEUZEJXXxxtxk 


АЯҒҒ:ҒОК T=0.0 TO 100.0: NEXT 


ЯҒҒ:РОКЕ 4B711—1,8FF:FOR T=0.0 TO 100.0:МЕХТ 


PRINT CHR$(12):CURSOR 10,12:PRINT "GEEN KEUZE ТЕ MAKEN":END 


PRINT CHR#(12):CURSOR 10,12 


RETURN 


SPRINT "U MAAKTE KEUZE EEN": ЕМО 








ES COT eO PSEHRSDR 10,12:PRINT "И MAAKTE KEUZE TWEE": END 
PRINT CHR$# (12) : CURSOR 10,12:PRINT "LU MAAKTE KEUZE DRIE" : ЕМО 


RETURN 


FOKE #BE4D+1,#A:FOKE #RE4D-3, #А 


+5V 


LOR, 
| Ç EVENT 


PRINT CHR$ (12) : CURSOR 10,12 


PRINT 

WAIT T 
MODE 4 
COLORG 
FOR N= 


"РАК МЕ DAN, ALS JE KAN!" 


IME 200 
О 5 10 15 
1.0 TQ 5.0 


Х1=10. O+RND (XMAX—20. 0) : Y1=10. O+RND (YMAX—20. 0) 


FILL X 


1,¥1 X1+10,Y1+10 15 


WAIT MEM #FDOO, #10 

X2-10. OHRND (XMAX—20. 0) : Y2=10. O+RND CYMAX-20. 0) 
FILL X2,Y2 X2410,Y2410 15 

FILL X1,Y1 X1410,Y1-10 О 

WAIT MEM #FDOO, #10 

FILL X2,Y2 X2+10,Y2+10 O 


\Paopre 
da 


NEXT 
K=K+1.0 

ON к GOTO 200, 210, 220, 230, 240 

PRINT "JE KRIJGT ME TÜCH NIET TE PAKKEN!":WAIT TIME 200:GOTO 50 
PRINT "IK BEN LEKKER SNELLER'":WAIT TIME 200:GOTO 50 

PRINT "VOLHOUDEN! JE HAD ME BIJNA!":WAIT TIME 200: GOTO 50 

PRINT "EEN BEETJE VLUGGER EN JE HEBT ME!":WAIT TIME 200:GOTO 50 
PRINT "HOU MAAR OF IK BEN STEEDS SNELLER DAN JIJ'";END 

LIST 


REM TITEL “LUXAFLEX" 


КЕМ BRON/AURTEUR: M.J. BERKX (27-12-81) 
REM OPSLAG: BAND NR.14; CODE РО1 


COLORT 800 © 

READ C 

IF С<0.0 THEN END 

ER B i 23. 0: FOR B-1.0 TO 60.0:FRINT CHRS(C);:NEXT B:PRINT :МЕХТ A 
=1. Q 5.0 ; 

FOR ме. à TO 25.0 100 POKE #BFEF-N*#B6,470+K 

РОКЕ #BFEF-N&S#86, #70+K 1 ШЕТІ ТІМЕ 2 

WAIT TIME 2 20 | 

NEXT М. 125 WAIT TIME 20 

К=#17—К 130 NEXT P 

WAIT TIME 20 140 GOTO ` — 

FÜR N=23.0 TO 0.0 STEP -1.0 150 DATA 1,2,6,15,29,22,-1 
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VOLUME CONTROL MIXING AND IMPEDANCE. TRANS FoR MATION 








геасатчаМе 
interval timer 8253-5 


IC36 046 Ee 


ISok slok 






ыы бер % stereo -plug 
H p^ 2 
23k Con 3 
adr,  Ерх4 ا‎ 
j r nibbi \ 
owe ble io vides- 
© Connects 
dels 1 pin tb 
p tc icra соне 
| боп de stereo -plu 
ee NER T 
higher nibble Сом 
1 


очт2 sY 
Pin т 
w 4 
ade. $FDXKS 2 IC 14,15 


louter nibble 





- all diodes : (Ме 





IC-numbers according to 
Dessart ( Danamic poe. 203-Tiq.4) 





adr. itFDxs 


higher nibble all beds thesugh 74 LS343 -Mpes E 


ІС 15 





Las : SOUND + NOISE INTERFACE DAT Р.с. (беу. 4) AFJ. de Jong 01-10-61 
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The resident software of your DAI (the 'firmware!) is stored im 24K 
ROM. The memory addresses where this software сап be found is CAPA - 
EFFF, 

As this is only a address range of 12K, bank switching is used to 
enable the use of 24K ROM in this address area. Bank switching is 
done on the addresses Е000 - EFFF. That gives the following situa- 
tion in the memory map: 


6000 ~ СЕРЕ math, functions; machine control routines 
7880 - DFFF machine control routines; Basic routines. 


This part of the memory is not-switched. 


JENNY - QEFFF Bank 0 : Basic handling routines. 
15000 - 1EFFF Bank 1 : Math. routines; sound functions. 
2Е000 - 2EFFF Bank 2 : Screen driving package. 
5Е000 - 3EFFF Bank 3 : Basic encoding; utility package. 


The switching of these banks is done under software control 
via the RST commands to the 8080 processor (see DAInamic 
newsletter 81/p.243). 


When you write programs in machine language, a lot of routines 
available in this firmware can be usefully employed. An example: 


Output of a character to screen/RS232: 


MVI A, xx xx is ASCII-code for the 
character 
CALL :DD6¢ On 2066, the output routine 


to screen/RS232 can be found. 


Do you have questions on the firmware? Write them to me. In each 
Newsletter from now on space is reserved for answering your ques- 
tions (if the answer is known). When we don't have an answer on 
your question, we will communicate it to the other clubmembers 

in the hope to get an answer. 

So don't hesitate. Don't think your question is too simple because 
you are just a beginner in the DAI-world. Remember: A experienced 
DAI-user is a beginner who started a little time earlier}; 

Write your questions to: 


B.J.Boerrigter 
Fabritiusstraat 15 
6174 RG Sweikhuizen - Nederland. 


WHERE TO STORE MACHINE LANGUAGE PROGRAMS 


It has become a practice to write M.L.programs with startaddress 0300, 
the start of the Heap is then moved to an address after the M.L.program. 
When accidently a Reset happens, you may find your program destroyed. 
This is done by the reset routine: It defaults the HEAP to its original 
position (start #2ЕС) and length (10H). On the adresses @2EC/ED and 
Q3EA-ED Heap pointers are written. The last ones destroy your M.L. 
program, which is for the rest not affected by a reset. 

If you start a M.L.program on ñ40ZH, it can be restarted with a 

simple 'GO' after an accidently occured reset. | 


Jan Boerrigter 





SAVING and LOADING of STRING ARRAYS. 


Especially in word processing programs, string arrays (e.g. А%(М)) 
are used to store the data. These arrays can be saved on tape via 
the Basic instruction SAVEA. 

During saving (and/or loading) of these arrays, several problems 
may occur, as for instance a 'OUT OF MEMORY! error report. 


This article will describe what happens during saving and loading 
of string arrays. Read before what is written in Newsletter 1981, 
page 188,189 about string arrays and the Heap. 


In the Heap, string arrays are stored in two parts: 1. the address 
where the strings can be found, and 2, the string itself. Strings 
are stored in the sequence they are assigned, so they do not have 

a fixed location inside the Heap. Before saving a string array, 

it is necessary to get al the data of the particular array together. 
Via the next program, the whole sequence is demonstrated. 


10 CLEAR 2500 
20 DIM A$(5.0).B$(5.0) , NE (5.0) , Hai, Q) 

30 FOR №=0.0 TO S.O:READ A$(N):READ B$(N):NEXT 

40 FOR №=0.0 TO 5.0 

50 FOR X=0.0 TO 9.0 

60 МФ (N) =N$ (ND 40% (N) 2 MB (N) =М$ (N) +B$ (М) 

70 NEXT Х:МЕХТ М SAVE 

во STOF 

90 SAVEA № "TEST 1" 

100 STOF 

110 SAVEA M$ "TEST 2" Í 
120 END | 


130 DATA A.G.B.H.C. Ie De J En Ke F, L 
200 CLEAR 2560 
210 DIM N&{5.0) „M$ (5. 0) : | 
220 PRINT "START ТАРЕ" LOAD | 
230  LOADA N$ "TEST 1". 

240 PRINT "START ТАРЕ" 

25 LOADA M$ "TEST 2" 

260 END 





The two string arrays es and M$(5) are filled with the contents 
of 10 times a letter. N$(O = "АААААЛАААА"; M$(5)="LLLLLLLLLL", 


When the program stops in line 80, the contents of the Heap is as 
follows: 


О2ЕС|ОО ОЕ oi 05 

O2FO|2D O3 33 OS 59 ОЗ ЗЕ OS 45 ОЗ AB ОЗ OO OE O1 05 
0500150 оз 36 оз SC ОЗ 42 ОЗ 48 ОЗ AE оз OO OE oi 05 
0510|5С 05 7F ОЗ 97 ОЗ AF ОЗ C7 ОЗ DF OZ OO OE O1 O5 
0320 8B oz 

0330 : ; Af(n), BS(n) 
0540 

0550 

0560 1 .7 4 | 
0370 | 

0380 ; 

0590 $ 45 43 = NS(n), M$(n) 
03A0 


string addresses 





O3BO 


озсо 

OSDO 

OSEO à 

.93FO|4C 4C 4C 4C 4C 4C op 41 


42 


Іп the Неар, the addresspointers to the strimgs сап be found, and 
the particular strings theirselves. All strings are found in the 
Heap in the sequence they are loaded. For instance parts of strings 
can be found from line 60 in the program, where the N$ and the Mf 
increase every time, | 


When now line 90 is rumned, the following happens. The ROM-software 
dictates the DAI to order all the data belonging to the string N$. 
This is done in the free RAM space! If line 90 has been executed, 
you will find directly after the symboltable (ending on #Е27) all 
the string data in a neat order. 


OE28|OO OC ОА 41 41 41 41 41 

OESO|41 41 41 41 41 OA 42 42 42 42 42 42 42 42 42 42 
ОЕ40 ОА 45 45 45 45 45 45 45 45 45 45 OA 44 44 44 44 
ОЕ5О |44 44 44 44 44 44 QA 45 45 45 45 45 45 45 45 45 
ОЕ60 | 45 ОЙ 46 46 44 46 46 46 46 46 46 46 


The same happens after executing line 110. But no additional RAM 
space is used; the data of Nf is overwritten by the data of M$: 


OEZR |00 OC OA 47 47 47 47 47 

ОЕЗО |47 47 47 47 47 OA 48 48 48 48 48 48 48 48 49 48 
OE4O|OA 49 49 49 49 49 49 49 49 49 49 OA 4A 4A AA 4A 
OESO|4A 44 да да да да OA Ap ав ав Ap ав ав AR 4B Ав 
ОЕбО |4В ОА 4C 4C AC AC AC AC AC AC AC AC 


Maybe now is clear why a "OUT OF MEMORY! error report occur 
when a string array is to be saved on tape. When a large Heap is 
cleared, the program itself uses a lot of memory space, and the 
stringarray contains a lot of data, the free RAM space may be to 
small to contain all the string data to be saved. 


When LOADING string arrays from tape, the same sequence is used. 
Ihe data, read from tape, is stored in the free RAM space above 
textbuffer and symbol table. 

When all reading has been done, the ROM-firmware initiates the 
re-organisation of the Heap: the string data is moved from the 
free RAM space into the Heap and the address pointers are updated. 


This is the reason the DAI uses some time after reading string 
arrays from tape. You remember: after reading a string array 
(cursor do not flash), the cursor starts flashing, but the DAI 
is still busy for some time. 

It is a failure in the software design that the cassette motor 
is not switched of after the end of the reading, but after the 
organisation of the Heap. 


Final conclusion: When you want to use string arrays for saving 


data on tape, be careful in the memory space you use. For both 
saving and reading, you need almost the same memory space in the 
free RAM space as you need in the Hean for the particular string 
array. Every obstruction against this rule is fined with a 

‘OUT CF MEMORY" error report. 


So take care! 
| Jam Boerrigter/jan.'82 
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J#L. 
FAGE O1 DEL 1.1 


002 
005 
004 
005 
006 
007 
008 
009 
010 
011 
012 
013 
014. 
015 
016 
017 
018 
019 
020 
021 
022 
025 
024 
025 
026 
027 
о28 
о29 
озо 
051 
022 
о52 
024 
035 
056 
O37 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 


055 
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ЖЖЖЖ ЖЖ ЖЖ OOOO KO OK 


DAINAMIC  EOOTSTRAP LOADER ( DEL ) 


DEL IS USED FOR EASY LOADING OF FROGRAMS WHICH 
HAVE A MACHINE LANGUAGE AND A BASIC PART. 


x 

* 
* 
* 
* 
* 
* 
VERSIONS : x 
DEL 1.Ж : DELIVERED AS А BASIC PROGRAM AND * 

IS USABLE WITH CASSETTE, DCR AND x 

DISE BY TYFING XLOAD:RUN . * 

DEL 2.Ж : DELIVERED AS A UTILITY FILE AND’ * 
ONLY USABLE WITH DCR AS А "USER" * 

FILE AND EXECUTED AFTER DAI RESET. Ж 

x 
x 


DR HO HE HR ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ OSORIO ТТТ 
ЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ CCC ЖЖ ЖЖ 


PEL V1. Xx 


! 
THIS MACHINE LANGUAGE FROGRAM IS LOADED IN THE 
STACKAREA OF THE RAM BY А BASIC PROGRAM. 
CONTROL IS TRANSFERED TO IT WITH A САГЫМ #FOOO, 


FUNCTIONS : 
1) INIT STACKFOINTER. 
2) LOAD THE FIRST UTILITY FILE ON TAFE. 


5) SET BEGIN OF HEAP AFTER CODE OF THE 
UTILITY FILE AND FERFORM A ЖМЕМ TO ADJUST 
OTHER BASIC FOINTERS. 


4) PRINT MESSAGE [LOAD BASIC] AND LOAD THE 
FIRST BASIC FROGRAM ON TAFE. 


5) FORCE A RUN OF THE LOADED BASIC FROGRAM. 
NOTES : 


1) TO START WITH A CLEAN SYSTEM, DO А RESET 
BEFORE STARTING THE BOOTSTRAF LOADING 


я) IF THE ВКЕАКЕЕУ IS PRESSED : 
- BEFORE CONTROL IS TRANSFERD TO THIS MLP 
( = BEFORE OR DURING FOKING OF THE CODE) 
THEN ТҮРЕ *RUN TO RESTART 
~ AFTER LOADING OF THE UTILITY FILE 
C = AFTER FUNCTION 1,2,2) 
THEN ТҮРЕ *LOAD:RUN TO CONTINUE 
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РАСЕ O2 


DIÓ 
оз? 
058 
ов 
060 
O61 
O62 
DAZ 
O64 
O65 
O66 
067 
068 
O69 
070 
O71 
O72 
O73 
074 
075 
076 
O77 
078 
079 
080 
081 
ова 
Og 
084 
085 
ORG 
ов? 
O88 
089 
090 
091 

09a 
Q9 
094 
095 
096 
O97 
098 
099 
100 
101 

102 
105 
104 
105 
10% 
107 
108 
109 
110 
111 

112 
113 
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F800 
Fas 
F806 
F809 
F8oC 
F80F 
F812 
F815 
F818 
F81 Et 
Ев1С 
F81F 


DEL 1.1 


F100F9 
210000 
220001 
OLFF Si 
CDCEOZ2 
2154F8 
1156F8 
CDD10o2 
210080 
EB 

2A54F8 
DED1OE 


ЗОВЕСӨІ 


DAT 


3€ 3€ 3€ 3 эб 3€ S 3€ € 3t Эб MH HH эе ж + эе эе 


THEN 


BASIC 
LOADING ERRORS 
ERROR FORMAT. 


4) AB DEL 
FILENAMES, 
SEQUENCE ON 
із ODBL. 
ve LEE TRE os 


Sc OBASIC 


= AFTER LOADING THE BASIC 
KRUIN TO START THE PROGRAM 


TYPE 


3) IF LOADING ERRORS 
= LOAD OF 
LOAD OF 

THEN RESTART 

~ LOAD OF THE BASIC PROGRAM THEN RESTART 
ONLY LOAD OF BASIC : 

ТҮРЕ «LOAD: RUN 


AND 


READS THE ТАРЕ FILES 
FUT 
THE TAPE « 
BASIC TO РОЕЕ 
YOUR MLF 
YOUR 


l.* i 


BASIC 
UTILITY 


OCCUR DURING £ 
PROGRAM DEL OR 
FILE 


THE WHOLE FROCESS 
SET TAFE BEFORE 


ARE REFORTED 


WITHOUT 
THE FILES IN CORRECT 

DEL IN КАМ 
CODE 


* 
* 
x 
x 
* 
D 
D 
* 
Ж 
Ж 
IN THE NORMAL x 
Ж 
Ж 
D 
x 
Ж 
x 
* 
BASIC FROGRAM Ж 
Ж 

* 


BRR AOC ЖЖ ЖЖ ЖЖ ЖЖ IO OK 


ж DESCRIBES OF DAT REFERENCES 


Ж 
* waaar кө ме әкем baten dink X кене qas meen кәм 
CURRNT ЕСИ 
HEAP EQU 
SRBOT EGU 
SSTOF EQU 
КОРЕМ Eau 
RBLE EQU 
RCLO EQU 
FORCER EQU 
ERRLD EQU 
CRLF EGU 
RNEW EQU 
x 
ORG 
Ж 
ENTRY LXI 
LXI 
SHLD 
LACE 
CALL 
LXI 
Ext 
CALL. 
LXI 
_ XCHG 
LHLD 
CC 


1100 
r УН 
2F BOO 
rE ROO 
АСЕ 


sad 

:CB892 
r DBAS 
: DOSE 
: DERB 


SRBOT ` 


SF, SS Tor 
Н, 0 
CURRNT 

В. SIFF 
ROPEN 

Ha ТЕМЕ 
D, TEMP +2 
КЕШЕ 

Hy 2 BOO 


ТЕМР 
RBLE 


START OF CURRENT LINE 
BEGIN HEAF 

BOTTOM OF STACK RAM 
TOF OF STACE RAM 


SEARCH ТАРЕ FILE, SYNC, CHECK 
FILE TYFE,DISFL/CHECE NAME 
TRANSFER BLOCK OF BYTES FROM. 


ТАРЕ TO RAM, EXIT : 

IF NO LOADING ERRORS 

THEN CY=1 

ELSE Су=о AND A=ERRORCODE 


STOF CASSETTE 

FORCE BASIC RUN IF NO BREAK 
ENTRY FOR TAFE ERROR MSG, 
EXITS TO BASIC COMMAND MODE 
PRINT A CAR RETURN 
DELETE BASIC PROGRAM AND 
UF BASIC POINTERS 


SET 


INIT STACKFOINTER 

READ WITHOUT NAME 

SET NO PROGRAM RUNNING 
FILETYFE 1 + FRINT NAMES 
TEMFORY SAVE AREA 

READ BEGINADDR UT CODE 
MAX ADDR UT FILE 


IF NQ ERRORS READ BLOCK 
WITH CONTENTS UT FILE 


PAGE OS DRL. 1.1 SODECSI 





114 F822 CDD4OZ CALL. RELO ALWAYS STOF CASSETTE 
115 F825 ОФАВОЕ JNC ERRL.D ABORT IF ERRORS 

116 F828 229802 SHLD НЕА ADJUST HEAFBEGIN 

117 F82B CDBSDE CALL RNEW ADJUST OTHER FOINTERS 
118 F82E CDSEDD CALL CRLF 

119 F831 O137F8 LXI B.EASLIN  FOINTER BASIC CMD LINE 
120 F834 C392C8 JMF CBZ START BASIC RUN 

121 * 

22 ж FOLLOWING DATA IS EXECUTED AS А BASIC COMMAND LINE 
125 TRUN EGLI (ER RUN (DAI INTERNAL CODE) 
124 TLOAD EQU 1 OR LOAD 

25 TERINT EQU DAD PRINT 

126 3 

127 F837 AD BASLIN DATA TFRINT ` FRINT MESSAGE 

128 F838 Ol DATA möl 1 EXFRESSION 

129 F839 20 DATA 2200 SEFARATOR 

150 FB834 18 DATA #18 STRINGCONSTANT 

151 ҒӨБ 11 DATA 111 STRINGLENGTH 

132 ЕВЗС SBZO4C ASC "[ LOADING BASIC 1° 

133 FB84D FF ATA {ЕЕ END FRINT WITH CR 

154 FS4E ВЕ . рата TLOAD LOAD BASIC FROGRAM 

155 F84F 1900 DATA 119,100 DUMMY STRINGCONSTANT 
ісе ЕВЭТ ADOO боз DATA ТРЕІМТ,:ОО FRINT ONLY CR 

157 F833 87 DATA TRUN START BASIC РКООКАМ 
126 Ж 

159 F854 ОООО ТЕМЕ DEL. Q 

140 * 

141 FSSé END 


JOR EO ORE K K E ROKK 
k S Y H B Q L. T ñ R L E Ж 
KKK KKK KKK RK RK KK ЖЖ ЖЖ ЖЖ 


BASLIN ЕБІ? CRLF DDSE CURRNT OLOO ENTRY FBOO 
ERRLD р208 FORCER C392 HE ob озон RELE 0201 
RCLO OZDA RNEW DEBS КОРЕМ O8CE SRBOT [800 
SSTOF  F9oo ТЕМР FEA TLOAD оовв TERINT OOAD 
TRUN оов? 


REM <<< DAINAMIC EOOTSTRAF LOADER 91.1 ZODECS81 

REM /X THIS PROGRAM LOADS A BOOTSTRAP МЫР IN RAM 

REM /* THE MLF LOADS A UTILITY FILE AND à BASIC PROGRAM 

REM /Ж BEGIN OF HEAF IS ADJUSTED AFTER THE MLP 

REM /k THE BASIC FROGRAM IS ENTERED WITH A RUN 

REM /Ж CONTENTS TAPE : DEL, UT-FILE, BASIC FROGRAM 

REM /Ж SET TAPE BEFORE DBL, ТҮРЕ XLOAD:RUN, START CASSETTE 

MODE O:PRINT СНЕФ (12) : COLORT 8 O o 8 

FOKE #75, #SF: CLEAR #100 

PRINT "ЖЖЖ DAINAMIC BOOTSTRAP LOADER Vi.1 XX": PRINT 

READ BGNADDR, NMBR 

FOR ADDR=EGNADDR TO EGNADDR+NMER-1 

READ ВУТЕ:РОКЕ ADDR, BYTE 

NEXT:READ С:ТЕ СУЗ#ЕЕЕЕ THEN PRINT "DATA READ ERROR":PRINT :END 
PRINT "E LOADING UTILITY FILE 1" 

CALLM BGNADDR 

REM /Ж MLF BYTES 

DATA #F800, 86 | 
DATA &Z1,400,4F9,421, #00, #00, HEE, HOO, POL, #01, BEE, 431, HCD, HCE, #02, #21 
DATA #54, ER, 411,456, #ЕВ, HCD, #01, #02, #21, #00, #EO, BER, #20, #54, BER, HDC 
DATA #D1,#02,#CD,#D4, #02, HDE, HAB, HDE, #22, HOE, #02, CD, HEB, HDE, #CD, HSE 
DATA #DD, #01, #37, BER, HUE, #92, HCH, HAD, #01, 820,818,411, HSB, #20, HAC, AF 
DATA #41,444,#49, HAE, #47, 420,842,441, HEE, #49, 43, #20, HED, FFF , HOR, #19 
DATA #00, AD, #00, #87, #00, #00, ЖЕЕЕЕ 45 
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BASIC HANDERCGEREN-—-MANLIAL S 


Voorbeelden en informatie vind je ondermeer in volgende boeken š 


I 


I 
II 
II 
IV 

V 


Basic voor je personal computer — Stichting BASICned Hollandsche Rading. 
Cursusboek bij Teleaccursus MICROPROCESSORS 2 — Stichting Teleac Utrecht. 
User's manual for level 1 Basic (TRS-80) 
Handleiding voor Basic level 2 " 
I II III W v I II III IV 
CHECK 74 75 47 WAIT ` 68 271 
CLEAR 78 191 4/2 ав UT 71 191 
COLORG 82 280 49 ABS 96 239 113 93 
COLORT 82 279 . 50 ACOS 96 123 
CONT 77 53 2⁄3 51 АОС 96 
CURSOR 87 283 52 ASC 96 215 157 
DATA 71 110 92 85 3/8 53 ASIN 96 122 
DIM 78 158 100 4/3 54 АТМ 96 123 
DOT 83 249 281 55 CHR ¥$ 97 209 159 
DRAW 83 250 281 56 COS 97 120 
EDIT 61 43 9/1 57 CURX 88 283 
END 64 53 75 13 4/4 Sp  CURY 88 283 
ENVELOPE 92 284 | 59 Exp 97 124 
FILL 83 250 282 60 FRAC 97 115 
FOR NEXT 64 134 67 45 4/8 61 FRE 79 
GPSUB 65 227 81 81 4/6 62 FREQ 93 285 
GOTO 66 60 40 29 4/5 63 GETC 72 301 
IF GOTO 66 59 29 64 HEX $ 97 191 
IF THEN 66 99 52 29 4/12 65 ІМ 69 261 
Imp 48 65 INT 98 90 113 69 
INPUT 72 64 34 33 3/7 67 LEFT $ 98 221 155 
(ЕТ 79 47 31 18 4/4 68 LEN 98 221 154 
LIST 62 63 44 13 2/4 69 LOG 98 124 
LOAD 74 74 70 LOGT 98 124 
LOADA 75 107 71 MID ¥ 99 219 156 
MODE 80 249 280 72 PDL 70 
NEW 63 51 42 7 73 PEEK 70 266 
NEXT 65 145 71 45 4/8 74 PI 99 121 
NOISE 93 285 75 RIGHT # 99 221 156 
“ON GOSUB 66 84 78 4/7 76 ВМО 99 87 116 99 
‘ON GOTO 67 97 77 78 4/6 77 sSCRN 87 283 
OUT 69 261 8/4 78 SGN 100 115 
РОКЕ 70 267 8/5 79 SIN 100 120 
PRINT 73 62 32 9 3⁄4 80 SPC 100 249 160 
READ 73 118 94 85 3/9 81 SQR 100 116 
REM 77 98 45 4/12 82 STR Z 100 213 158 
RESTORE 73 217 98 87 83 ТАВ 101 248 160 61 
RETURN 67 232 81 82 4/6 84 ТАМ 101 121 
RUN 63 66 45 9 85 VAL 101 212 159 
SAVE 75 74 85 VARPTR 79: 270 
SAVEA 76 107 87 ХМАХ 87 282 
SOUND 92 284 Dn YMAX 87 282 
STOP 68 104 81 56 4⁄5 89 MOD 47 
TALK 94 90/91 IOR/IAND 104 251 
TROFF 78 2/5 92/93 IXOR/INOT 104 251 
TRON 78 2/5 94/95 SHL/SHR 102 263 


DAI personal computer manual - DAI microcomputer engeneering company. 














2010 COMMAND$="5051 15052277114 
4145805027141400414/" 
2020 | COMMAND$-COMMANDS- " 
00505115055611404/" 

2050 COMMANDS=COMMANDS$+ "2735 
50227" 

x 


ee сада‏ 5 سسس 
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T 
2010 СОММАМПФ-"5150051522711404158056250505368285141145422757227572050 
9555652651141456050271404114041227270" 

2020 COMMAND$=COMMANDS+ "05 1502633605227 1 2433626336260522737 1406111404 
1270051500515" 

2050 ` СОММАМО$=СОММАМО$ +" 550561211427050505651411427572275705250055562 
63114314065316005150227" 


2010 COMMANDS ="51500515227114041360362505/033626314114342273722737205005" 


2020 COMMANDS=COMMANDS +"33626511434142700515034/1404114041270051503624/22737205336263362b14227372053436163114041272270051500515" 


2030 COMMAND$=COMMAND$+"271140436250535036263141142737227370525005336763114143636005150227" 


2010 COMMANDS="5190051522711404136036250503362631431142427372273720500533626311 
4143685827 14841 1484136005150027352227372143362" 
2020 COMMANDS=COMMAND$+"63362605227 14363631 1404127227005 150051527 1 1436050530626 
3141142737227370525005336263114143636905150227" 


515005152271140413603625050336263143114242737227372050053236263114143605027140411 
40413600515002735222737214336263362605227143636311404127227005150051527114360505 
306263141142737227370525005336263114143636005150227 

211 


3299 REM CORRECTIONS AS SUGGESTED RY K..VERBEKE 
3300 FOR Y=0 TO 19:GOSUB 4020 

5520 DRAW AX20,R420+Y0+Y+1 дж20+Х0, B*£20+YO+Y+1 СО 
3450 FOR Y-O TO 19:G0SUR 4020 

5470 DRAW AX*20,BX*20-Y-1 A*20+X0,B*20-Y-1 CO 

3620 FOR Y-1 TO 20:GOSUB 4020 

3630 DRAW A&20+Y+1+X0,BX20 AK20-Y+X0+1,RK20+Y CO 
3850 FOR Y-1 TO 20:G0SUR 4020 

5840 DRAW AX20-Y-1,BX*20 AX*20-Y-1,BX*20«-YO CO 





35299 REM CORRECTIONS AS SUGGESTED BY M.STREICHER 
5510 DRAW AX20, Bk20+Y-1 AX20-X0,BX20-Y-1 20 
3460 DRAW A¥20,B*20+YO-Y+1 А%20+Х0, ВЖ20+ү0-Ү+1 20 
5650 DRAW AX20-Y-XO0*1,BX*20 AX2O-Y-XO0-1,RBX20-YO 20 
5850 DRAW AX20-Y-1,Rf20 Ak20+Y-1,B*20+YO 20 


04136360502503362631411434227273372720500533626311 
12272700515036336052272 1 433626336260522737 1406111404127 


052503362631 41142737227370525005336263 1141436360051 


TAPE LIST 





Un petit programme qui intéressera les possesseurs d'une imprimante. 

Vous avez sürement déjà remarqué qu'avec un "check" le titre des programmes 
n'apparaît pas sur l'inprimante. 

Ce programme vous permettra de lister les titres des programmes contenus 
sur une cassette digitale (pour un DCR, tapez d'abord DCR(REW) ou CAS au 
choix). | 


Quand vous voulez arréter l'impression, tapez espace. 


PAGE 1 -- CASSETTE LIST -- FLST V2.2 
5 REM CASSETTE LIST 

10 MODE O:PRINT CHR&$(12);:POKE H1Z1,1:0D$-"" 

zo FOR A=1 TO 21:READ B:AD$=AD$+CHR$ (В) : NEXT 

40 AD=PEEK (VARPTR(ADS)) IOR (PEEK (VARPTR (AD$) +1) SHL 8) +1 

100 INPUT "CASSET'S NAME";CN$:PRINT | 
120 POKE #151, О:РАТМТ CN$:FDR A=0 TO 1ЕМ(СМФ)-1:РБІМТ "-";:МЕХТ: 
с PRINT :CPT=1 

1000 PRINT CHR$(12);:CALLM AD:PRINT :PRINT CPT;" — "3 , 
1030 FOR A=#BFE7 TO #BF85 STEP -2:PRINT CHRS (PEEK (A) ) ; :NEXT 

1035 IF GETC<>0 THEN 2000 

1040 CPT=CPT+1:G0TO 1000 

2000 POKE #131,1:END 

10000 DATA #F5,#C5, #05, HES, #01, #40, HOO, #11, #B1, #90, #21, HOE, HEG, ` 

C #CD, #CE, #02, #E1,#D1, #C1, #F1, #C9 

PAGE 1 -- WHAT TO pQ IF A CRASH OCCURS.... -— FLST V2.2 
1 REM WHAT ТО DO IF A CRASH OCCURS.... 

2 INPUT “START OF HEAP (#2EC)";START:PRINT :DEP=START 

10 COM-DEP:DIZ-O 

20 ОЕ=РЕЕК (COM) = NUM= (PEEK (COH+1) SHL 8) IOR PEEK (COM+2) : IF 

с 22 NUM>2000.0 OR NUM<1.0 THEN DEP=DEP+1:IF DEP<#A000 THEN 10 
40 IF NUM/10=INT(NUM/10.0) THEN DIZ=DIZ+1 

50 IF DIZ>10 THEN 70 

во СОМ=СОМ+1+0Е: БОТО 20 

70 STEXT=DEP 

go COM=DEP 

90 OF=PEEK (COM) z NUM= (PEEK (COM+1) SHL 8) IOR PEEK (СОМ+2) : IF 

C NUM>#FFFF OR NUM=0 OR OF=0 THEN 120 

110 COM=COM+1+0F:GOTO 90 

120 COM-COM- 1: FINP-COM 

130 А=РЕЕК (СОМ) IAND #F:IF А-О THEN 200 

140 COM=COM+A+1:B=PEEK (COM) ТАМО #F:COM=COM+B+1:GOTO 130 

200 ESY=COM+1 

210 PRINT "НЕДР: ";НЕХ$ (STEXT-START) 

220 PRINT "!!! START OF ТЕХТ: "sHEX$(STEXT) з" FIRST LINE= 

с "s (PEEK(DEP+1) SHL 8) IOR PEEK (DEP+2) 

250 PRINT "END OF TEXT: ";HEX$(FINF) 

240 PRINT "END OF SYMBOL TABLE: ";HEX$(ESY) 
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Im ивы; ан ини: 
Ho ur H H ni: 





WHAT TO DO WHEN A CRASH OCCURS 7 
— s RE 





Beaucoup d'entre vous ont sürement déjà été "ennuyés" par des "resets 
intempestifs". 
Ces accidents, qu'ils soient dus a la machine ou a l'homme-qui-programme- 
la-machine, arrivent toujours au début d'un Programme (vous savez, après 
la 400епе ligne environ). 
Voici donc un petit programme qui vous permettra de "récupérer" à 99,999 Z 
des cas un programme "planté" (à condition qu'il ne se soit pas auto- 
détruit). | 
Voici la procédure à suivre : 
1- Ne pas paniquer ni jurer. 
2-- Faire reset (si ce n'est pas déjà fait). 
| 3 - Taper UT 

Z3 

5298 02-00 EC-AO 

B 

NEW 
4 — Charger le Programme "What to do when a crash occurs", 
5 - Faire "RUN", 
6 - А la question "START OF НЕАР?", taper- 2ЕС Pour un programme normal; 

| тып autre chiffre si 1а mémoire était 


protégée par du langage machine 
ex : 900 pour ЕСТ. 


7 - Prier. 
8 - Le programme donne : HEAP 
START OF TEXT 
START OF SYMBOL TABLE 
END OF SYMBOL TABLE 
9 - Remplacer les pointeurs де 29B et 2A4 en n'oubliant pas d'inverser 
LSB et MSB, 
10- Revenir au basic. 
ll- Faire "LIST", 


12- Si rien ne se passe, jurer un bon coup! 
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1100 
1120 
Ар." 
1130 
1140 







рат Don LG Tu TY D h ЖЖЖ ШШЕ 


CLEAR 100 

POKE #875,22 

ENVELOPE à {3:ER¥ELOPE 1 15: MODE G:FRINT CHRÉ(ZI:;COLURT B 8 B 8;:F$=” format :" 
PRINT ' ШО DAI BASIC TUTOR tt: BD šsQ0:FRINT 


PRINT * select a number oo... 12 digits)":G608UR 800 

PRINT " 01 CHECK — 02 CLEAR û3 CüLURG 04 COLORT 05 CONT" 
PRINT * дё CURSOR — Q7 ВАТА ae DIR 09 paT 10 DRAW" 
PRINT * 11 EDIT 12 END 13 ENVELOPE 14 FILL 15 FOR NEXT" 


- 
РА 





PRINT " ié GOSUR 17 6010 18 IF GOTO 19 iF THEN 20 IMP" 
PRINT * 21 INPUT — 22 LET 23 LIST 24 LOAD 23 LOADA* 
PRINT * 26 MODE 27 NEW 28 NEXT 29 NOISE 30 ON B5üSUB 
PRINT " i1 GN GOTO 32 OUT 33 РЕКЕ 34 PRINT — 33 READ" 
PRINT " 38 REM Ai RESTORE 38 RETURN — 39 RUN 49 SAVE” 
PRINT " 41 SAVER 4: 45 STOF 44 TALE 43 TROFF" 
PRINT " 44 TRON 17 Mñ ig UT 33 ABS 29 АШЫ" 
PRINT * St o Up 82 ASC 53 ASIN s CHR$' 
PRINT " Gé CGS a7 CURE 58 CUR ар FRAC" 
PRINT * 61 FRE bz FREG 83 BEIC ba ТАР" 
PRINT " a INT 5? LETS ` Ap LEN Jü LOST" 
PRINT * 7j MIDE 72 PB 73 PEER 78 RIGHT" 
FRINT " Je RNG 77 GERN 78 SGN 20 SFE" 
PRINT " 81 SOR 82 576 83 ТАВ 85 VAL" 
PRINT * Ba VARPIR — 87 МАХ 88 УМАХ 90 TOR" 
PRINT " 91 IANG 92 IKOR 93 NOT 1 95 SHR"; 
POKE #ВЕЕ2, 204: FOKE #8006, 200:РПЕЕ #BFEE, 205 


COLORT 80129 

Mee" "FOR i-1.0 TO 2.0 

ВЕБЕТС:1Е 5-0,0 THEN 420 

IF 8548.0 ПЕ 5257,0 THEN 42üils-HECCHRSIGIINAIT TIME 2 


SCUND 101529 FRO AO, GE e Ez. OH ALT TIME 3;:5=0,0:S0UND OFF :NEXT:M=VALIM$i:IF Mil THEN 405 
PX-EBFEE +10 (S886) INTIS, 7. MOD 5,0] $24, 0 : IF M MOD 5,0-0,0 THEN Pš=PF2+14 


FOR З-Рі-18 TO P%+2 STEP ZiPOKE YX,SFP:NEITIWAIT TIME 100:MDDE O:PRINT CHR$iI2); 
üN F GOTA 1190, 1200,13 00 ,1500, 1500, is 1700, 1800, MEN | 
DH N-16 шй 2100, 2280, 2300, 2400 DE 

QN 8-20 60 ; ү, 
ON M-39 BOTH 4100,42 


üN 8-40 БОТО 5190, 5200, 5300, 5490, Laun, 











Hii 8190 d Š 

і 7300,7 
poe 2460. 709, 
i $100,9200, HAD, 65üd, 9200, 9 7 
ШЕНІ 
0 6G,0:PRINI CHRSILITIINERTIPRINT :RETURH 
nen 36,1: PRINT “spacebar to continue sa” 

1F bo THEN 827 








CURSOR 20, {:PRINT "spacebar ts continue... "1 

G=6ETC:IF б=0,0 THEN 860 

RETURN 

FOKE #BEFEE,198;P0RE SBESC,200:iBÜSUB &00:PRINT TARDAS: GÜBUB 500: RETURN 


MEM ||| uu г, 





A= "CHECK": GOSUR 9OO:PRINT "The CHECK command scans a cassette tape or disc and " 


а 
PRINT "examines all the files.The type at each is printed":PRINT “followed by the word Gk or B 





PRINT PRINT TABi2ü!;"ü = BASIC PROGRAM: PRINT TAR(ZG)};"1 = MACHINE LANGUAGE FILE" 
PRINT TÀBi20); "2 = ARRAY": GOSUB 500:0070 800 

































EAR LL o ч 






AG="CLEAR":GOQSUB 9G0:ERINT F$; ТТАВ OR "10 CLEAR 4500" 

PRINT ТАШ (23); "CLEAR A030" : GOSUB 500 

PRINT "Resets all variables to Û or null string,and returns" 
SC "à ils 


space assigned to arrays.The size of the HEAP " 
= i the number specified by the CLEAR statement, 
= À , maximum = 22747" 


aet "OUT OF STRING SPACE" the HEAP is too smali":GOSUB 800:6070 800 











260808 9?00:FRINT FE; TAR(20)5 "10 COLORG û 5 10 15 (default valuesi" 
PRINT TAR(20); "COLORS 1 3 5 8";BÚSUB ago 
PRINT "Sets the 4 colours available in 4 COLOR ades (2,4,6)" 
PRINT "If the screen is already in 4 COLOR mode," 
PRINT “then the colour change will be iamediate* 
[us PRINT "The first colour is background leur "BLE 500;:6050Н 850 
1386 MODE ZA: PRINT СНЕ: СВ ü 1 3 5 
136 FOR 420,6 TO 10.0:FÜR y=0,0 TO 10. G:FILL. 04.04 VERZ, 31442 2LRNDU, 0) NEXT: NEXT 
1375 PRINT CHR$ (12): TA ВОТ "COLOR 0 1 3 S^:605U8 850 
1577 PRINT CHRS i12) i TABRIGI; "COLORG 1 5 12 14": COLORS | po 12 14:60508 850 
1355 PRINT CHR) ТАҒ СП S "COLORG 3 0 1 13": COLORG 5 0 1 13:6üTQ 800 





RT ИИ " 


1400  GÜGUB 400:P PRINT ГАВ 29); "COLORT": + ЫШЕ А00 
1410 PRINT QUE up 4 colours for character made (MODE ûj 


1420 PRINT "Fi colour is background colour": PRINT "Second colour is character colour” 
1430 PRINT "C nrs 3 and 4 are used if you PÜKE HEF 
1433 PRINT i 


m colour byte of E tharacter":BÜSUE 500 
1456 PRINT Fas TAR (25) is"i0 COLORT 8 G 12 O":PRINT TAR (25 "COLORT 8 0 12 Q"iG09l UE 500 
1450 FOR Y= CAR TO $HC7À STEP 2,0: SPOKE Y BFF:NEXT:LIST i3&0:GÜSUB 850 


165 CURSOR S.SIPRINT "COLURT 12 ü 131 ":CQLORT 12912 L:GOSUB 850 


1386 CURSOR $5, SPRINT "COLORT 5070 SCHORT 5 0 7 06070 800 





PRINT :PRINT 


AS="CONT":BOSUR 900:FRINT "Continues а BASIC program execution * 


PRINT “with the next statement Following ":PRINT "the STOP statement or BREAK position" 
PRINT "You can't CONT if you used UT EDIT" 


1539 PRINT "You can LIST or PRINT variables and then CONT":GOSUR 800:6070 800 








OD Ät="CURSOR":GOEUE Ron: PRINT 


"Maves the CURSOR to tha Kof position" 
PRINT ° 


‘given in the statement":PRINT " maximum i = 39 , maxiaus Y = 2X':605lh 800: :BÜSUR 850 


кы 


1536 CURSOR 10,4:PRINT CHRS (Lis "CURSOR 10,4":60508 850: CURSOR 25, 10:PRINT CHRS (Li; "CURSOR 25, 10":60 
SUE 850 
845 CURSOR i 


ЗАБОН 40, LE: PRINT CHRS (Lis “CURSOR 40, 14":60Т0 800 


рата 





Ш RESTORE 





AS="DATA":G05UR 900:PRINT "Specities information to be used by READ" 
PRINT "DATA must 


give the same type of information": PRINT "as READ 
PRINT “RESTORE points back to the first OATA-intoraation”: 
DATA 995,418.75 5. FELLOW, 10000, HERE vou ARE 


is asking for * 
15050 600: RESTORE 
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52 


1760 LIST 1755 ЕТ 1770;FRINT ;PRINT 

ПӘ FOR ізі TO S:READ АХ, AS: PRINT TñBRí10) AR А NEXT 

1772. PXSEEFEE- (#8688) :Р1Х=Р1-%0:Р2ДЕР1-58-%55 

1774 FOR XZ-P1Z ТОРИНО STEP Z:POKE ҮЗ,ЙРЕ:НЕҮТ 

1775 FUR XA=P2k+2 TÜ P2410 STEP 2ІРПКЕ AL, BFF: NET: БОТО 809 


2222 -. 





1800 A$-"DIN':G0SUR SOQ:PRINT "DIM allacates space for arrays Bi 2501" 

1902 PRINT “arrays can have gore than one suscript eg:4$(10,5,20)" 

1803 PRINT “the HEAP is used to store the arrays":PRINT "EDIT or RUN clears the arrays :60SUE &00:8 
070 890 ! | 


НИН ФЕ АНИ 





DOT ШЕШІП 





1900 А%=*10Т":6050В 900:PRINT "Places a dot of colour С at the position X,Y" 

1912 PRINT "The size of the GOT will depend upan the current МОВЕ" 

1914 GOSUR ano: PRINT PRINT Fé TARAS; DOT X,Y C°:GQSUB 500: 60608 850 

1920 COLORG û 1 3 MODE LAsPRINT CHR31121:CURSGR 25, 2:PRINT "MODE 1А*:БПБИН 1980 
1930 MODE ЗА:РКІНТ ЕНЕСІ ;:CURSOR 28,3:PRINT "MODE ЗА": 60508 1980 

1940 MODE SA:PRINT CHRÉiIZH CURSOR 25,3:PRINT “MODE SA" DUDU 1980:5070 800 

1980 GOSUR 5004510: = ІР М=10 THEM 1990 

1981 FOR гі TO 15 

1982 DOT АА, ВХ XX:CURSOR S,i:PRINT "DOT "илы ЫЫ s 

1983 Bitti: BBI e GOSUR 850: NEXT: RETURN 

1990 FOR Мі TQ 15 

1942 DRAW Ау, В A225,B2 IZ:CURSOR S,1:PRINT "DRAW "1621" а анына "ШШ" Ы 
1994 фай а Dis 60508 850: МЕХТ: RETURN 


ркаш JW 





2000 AS="DRAW*:GOSUB 900:PRINT "Draws a line in colour C between Xi Yi and 12,12" 


2020 PRINT "There is па restriction on the order of the coordinates" :605UB 50) 
2040 PRINT F$ ТАВ (291; "ORAN Xi YE 32,Y2 CW :BDSUB &00:80SUR 850:6070 1920 


| 





2100 Ak="EDIT":GOSUE SOG:PRINT "the program has stopped" ` 

2120 PRINT "You are in command now" PRINT "Bo to EDIT MODE with : EDIT 2119-2180 éreturni" 
2140 PRINT "lise the cursorkeys to make modifications to this text" 

2150 PRINT "lf you end with BREAK BREAK,":PRINT "Then na modifications are effective" 

2170 PRINT lf you want sone modifications then do BREAK SPACE" 

2180 PRINT "Ta see the results type LIST 2110-2190 éreturn" 

2190 PRINT "Туре RUN “return; ta continue the progras" rGÜSUB 600: END 


END uU АА 


2200 A$="END":GOSUB VüQ:PRÍNT “Terminates the execution of a BASIC program," 
2220 PRINT "An ‘END PROGRAM’ message is displayed" 
2230 PRINT "Type RUN ¿return? to start again" :GOSUE &üürEND 









| ENVELOFE ШШШ 


Titi iilud 
ИШ ШШ 










2300 AE="ENVELOPE":GOSUB 900:PRINT "format : ENVELOPE ar Пу, THY 
2320 PRINT " ENVELOPE nr. (V, TH; CP, THECA TH E": GBSUB. 500 
2250 PRINT "nr is an expression in the range 0 to 1" 









PRINT "Y is a volume level in the range Q to 15" 

PRINT "i is the tiae for volume V in the range | ta 254" 

PRINT *f is in units of 2.2 aillisecands':60SUB 800: 0508 850 
ü 


in 

HODE &à:COLORG 9 15 12 1 ҒПК 12-21 Tü 23:62=100 

PRINT CHR%*1121::PRINT "ENVELOPE 1 "i 

YASCQR-20) ûr és DRAK 100, YZ 235,12 XX 

VESRND (tau): TEZRND 20,0) 

Zeg: DRAN AL Ik ARTE, 25 ІШКЕН Af, 15 ALDY e DT 
Toe late lg (SOUND. 1 û Va 0 FREBIR00,0):BAIT TIME TX 

ӘТІР А; ziMAi-1900 THEN GOSUE 850:5070 2380 





үр 
ti 
Tü 
Н 


= Ша шо ZE 


T: SOUND OFF :6010 800 


ERES oo oos 


ASS"FILL':GOSUB 9OO:PRINT "format + FILL il XZQYZ C'IBOSUB 500 

PRINT “Fills the rectangle with opposite corners " 

PRINT "There is na restriction on the order of the points" :G0SUE 600:60518 850 
CüLuRB 8 | 3 SNORE SA:FÜR 520 Tü ИРИ 0, Хь IMAK, EGA KE 

CURSOR 4,Z:PRINT "FILL 0, "pakko IMAR "Їн he" БОБОВ 850 

2, THEN FILL 0,0 SHAR, УНАХ 0 














FOR NEXT ВАТА АОИ 


2400 Af="FOR NEXT':GOSUE GOG: PRINT "To set SE а loop a nusber of times" 

2520 PRINT “A STEP value is optional ":G05UH 500:805UB 954 

2549 PRINT CHR$i2);:&$z"SÜME EXAMPLES... "15 Pus 900; Ws 2500: BASUR 800 

2580 FOR £#=1 TÜ LOsPRINT X2:NEYT:SOSHRB 850 

| 2582 PRINT СНЕЖ 27:60508 600:LIST 2554: 60508 400 

| 2354 FOR (Goin TG 200 STEP IO:PRINT X£:NEXT:GUSUE 850 

| 557 PRINT ЇНЕФЇ12}}:605ШН са 2369: G0SUE 800 

1883 FOR Xi-20 Tü 13 STEP -1:РОВ Үї=5 Tü 20:PRINT Хн: NEXTIPRINT :NEXT:BDTO 800 











GOSUE ЖШШЕ RETURN ШШШ 


2500  A$-"GÜSUB^:GOSUB 900;PRINT F#;TAR(25);"40 BASUR 1000°:БП5ИЕ 800 

2820 PRINT "Branches to the specified linenumber,":PRINT “When a return stateaent is encountered th 
g next statement" 

2824 PRINT “executed is the statement following the GOSUE, * 

2826 PRINT "То be safe,oniy leave the subroutine with RETURN":GOSUB 8091187 2630-2640 

2829 PRINT :PRINT :PRINT CHRECGD ШЕТ 2870-2874 

| 2430 FOR 31,0 Т0 3,0 

| Z434 CURSOR 1,1: INPUT "type a name ireturn?"i8$ 

2835  DÜSUB 287 ü; NC to the subroutine 

2586 NEAT: 

2170 CURSOR ЕТТЕГІ (Ag? CURY 

872 FOR G=LEN(ASi-1.0 Tü 0,0 STEP =1,ú:FRINT RIDA, X 1t; 
2874  HEXZT:RETURÉ 










200. á#="üQTü":605UB 300:FRINT Fa; TAB{73); "20 GOTO 1000":GOSUB 600 
2120 PRINT "Branches ta the specified lingnugher":605SUB 200: 6070 800 


53 


54 





IF GOTO ВЕ IF THEN ШЕНІ 


2800 AS="IF THEN / IF GOTO":GOSUR 900 

2805 PRINT FS$;TAB(25):"20 IF А=5 THEN SOUND OFF" 

2806 PRINT TAB (251 ; "40 IF 8-3 THEN 100";PRINT TAB(251;"60 IF йе5 GOTO 100':GOSUE 809 

2808 PRINT "If the condition is true execute ЖЫЕН iw 

2805 PRINT "IF THEN can be followed by a statement or a linenusber" 

2810 PRINT "IF GOTO gust be followed by a linenugber":SQSUB &Q0:PRINT "attention PRINT '"--------- ; 
2850 PRINT "with IF GOTO inr. and IF THEN Inr,,it the condition is false":FRINT "the next statement 
on the sama line is executed” 

2850 PRINT "This does nat apply for IF THEN GOTO": БОВ 200: 6010 800 





3000 A$= IMF: 60508 900:PRINT F$ TAB(25); "IMP INT':PRINT TAR (293: "INP INT M-I" 
3007 PRINT ТАР(251; "IMP FPT"sPRINT TAR(25) "INP FPT L-O" SPRINT ТАБЫ "IMP STR A-D":GDSUE 800 


3012 PRINT "If the IMP statement is never used, :PRINT "DAlpc is ia IMPLIED FLOATING POINT" 


- 
3018 PRINT "In this situation Azû! Is]! ИРЕ "IR , ak , IX are integer and distinct from 1, 
ü : 1" 
3020 PRINT "I$ , ñ$ , 7$ are string variables":GUSUE 500 


3030 PRINT *note the different formats :':PRINT TARIQ); "FPT"sTAR(25) ;" INT" 1TAB (AQ) ; "STR" 
3040 FOR (ігі TU S:PRINT TAB CLO) A TAB (29) КЫ TAB САО) AS 
3050 й=й+1,21455Е5:А1=АЙ+12145559:Й%=Й1+ОНЕ$ (65 RD (20,01 1: NEXTIGOTO 800 


INFUT ИНО 





ee 


3190 AG="INPUT"SGOSUB 900:PRINT F$;T8B(25);"20 INPUT à" 
3115 PRINT TAB(251:"30 INPUT AS": PRINT TAR(2 281; 49 INPUT B,B$,B2" 


+ 


3125 PRINT ТАВ(251;%50 INPUT “HOW MANY TIMES’: S PRINT TAB(25);"40 INPUT WHATS YOUR NAME’ $ NARE": 
GOSUE 600 


т 


3130 PRINT "Requests data from the terminal to be typed in," 
2160 PRINT "Data typed in aust be of the same type as the variable(si":860TQ 800 


4. ШЕШ 


3200  AS-'LET':GÜSUB 900:PRINT ҒА ТАН 25 "LET W=1234" 

3220 PRINT TARZ; "LET G$=" CROCODILE’ "PRINT TAB(25) ; "M=9876" 

3240 PRINT TABI25) ;"HUMES-" ПА павіс? ":G08UR 600 

3230 PRINT “Assigns a value to a variable":PRINT "LET is opticnal':BüSUR &ü0:BDTO 800 


ST M 14 d 


3300 AS="LIST'IGOSUE 300:PRINT FE TARUS "LIST : display the entire program" 
š PRINT ТАШ15); "LIST 100%; TAB(300; display line 100" 

PRINT ТАЗ“ 100-"; TABRIZ); лы from 100 to the end" 

3325 PRINT TAB(IS2; "LIST 100-110" ТЕН (391: display from 100 to 110" 

3330 PRINT TñBí(iS); LIST -füürTAR (301; ¿"display from start to 100" 

3353 PRINT TAR(151:2 30 LIST 999", TARGO; "with linenugber ": 50508 800 

3340 PRINT "Display can be made © pause by pressing any key’ 

3350 PRINT "Pressing spacebar will continue listing':GüSllB 400:6070 800 


EAM o uL 


3400  AS-"LDAD':GÜSUB 9OQrPRINT F$; TAB(25] ; "LOAD": PRINT TÀE(25) ; "LOAD: RUN" 

3420 PRINT TABIZS): "10 LOAD": PRINT TAR(25);"10 LOAD TEST" ":GOSUE 600 

3445 PRINT "When BASIC encounters a LOAD command, ":FRINT "It loads the first program from tape" 

344? PRINT "Ihe old program is deleted ":PRINT "and the new one starts when loading is ¢inished":G0 
SUE 600: 6070 800 












кы 

















LOADA |. 


3500 =" ПАПА": 8058 SOC: PRINT Ғ%;ТАВ(281; 710 LOADA 8% 'APPLE'" 
3517 PRINT ТАШ25); "20 LOADA Mt":PRINT TÀB(28); "LUADA M$ `TRIAL'";BOSUB 500 


nar 


PRINT "Loads an array from tape/disc":6070 800 








3520 


mm MODE XMAX 





at-"HüDE": SOOrPRINT Eë: Toi A1: "MODE 5A" 


80518 3 
PRINT TAB(251:"100 MODE 2": 60508 eü0:iCOLÜRG Q 1 3 iz 
PRINT "Sets up display iormat":PRINT "There are 13 modes available :":608UB 500 
PRINT "HIDE GRAPHIC RESOLUTION’; ТАВ СТО) "4/16 COLOR REQUIRED SPACE“: PRINT 


PRINT * ХМАХ YMAI" 





PRINT "© 24 x 80 characters"; TABIO); "both мақ" 
PRINT "1 72 x SS I TARA [SET 

PRINT "2 72 x азе ТАВ СЗО "4 і. ЗК" 

PRINT * 3 180 x 130 ТАН 0718 5.8" 

PRINT " 4 O 180 x БИС: 4 s,8K" 

PRINT "D 336 x ИАС 22, 8k" 





PRINT " & — 336 à датаның 22.86" 

PRINT :PRINT " 14, 2A, 38,44, 58,68 same as 1,2,3,4,5,4 but split MODE": 60808 600: 608508 850 
PRINT CHR$(121:PRINT ТАВ(251) "MODE LA" MODE 1А: 50508 2890:КЕҢ 18 C 

3842 PRINT CHRE(ZI:PRINT TAGS I: "МОВЕ ZA": MODE ZA:GOSUE 3695;REM AC 

3884 PRINT CHRECIZ):PRINT TABI ZS) 3A" HODE 25:60508 Zë90:PRINT CHRELIZIIPRINT ТАВ (25); "MODE 4 
ANGLE 48:60508 1673 

Қы Ад» PERINI TARS "RODE SA МОЈЕ SA GOSUR I&90:PRINT CHRS(12):FRINT TAR(25); "MOIE & 


> 











emm 
CURSOR 2,isFRINT "XMAi =" МАХ" YHAR “ИМ” 

FOR (3-0 Tü УМАХ STEP 2sDRAW 0,17 IMAL, X% RND(18.01:NEIT:SOSUB B50:RETURN 
CURSOR 2,1:РКІНТ "SHAR - ОМАР" YHA ="; YMAR" ° 

3896 FOR ei TO 10:MLe4MAX/20:FILL AMAL-ZEME, ПИН (MAX. КИНА КМО СЗУ МЕЛТ 
3697 FOR Х3=0 Tü ХМАХ STEP 2:DRAM 0,0 X%,S8YNAK/4 ERD, 01421, 0: NEXT: GOSUB. G50: RETURN 


NEW o I 4 








i700  At-"NEU':GUSUE TOO:PRINT "Deletes current BASIC pragraa and resets all variahles":GÜGUB 400:60 
Tü 800 





Ш NOISE ВОН 


3900 AB="HQISE": 





80538 Süü;PRINT F$iTAB(2S) t "NOISE E V" 






3318. PRINT ТАС "NOISE BFF':GÜSUB 800: PRIN "Gives white noise on both channels” 
PRINT "following ENVELOFE Ein"? with volume Y“ DOG 500: DOUD 850 

PRINT СНЕЖ СОСТ а IST 3925-2840 

ENVELOPE ü [5,516,154 

NOISE ü 15:ШАТТ TIME 200 





NOISE ДЕР 
5-3940 
FOR qui г LOFER Х1=5 TO 15 
NGISE 1 XX:8AIT TIME 5 
NEXTINEXT: NOISE OFF 





SOTO 800 





| d з ne Е ШШШ ШИЕ 
4000 а=" ON  GOSUB":GOSUR 900:PRINT ss ON ñ 50506 100, 150, 20 ESO T т” 600 
4030 CURSOR 9,15:PRINT "If A=1 then GOSUR 100 — | GOTO 100)" 

035 PRINT "I$ A=? then GOSUR 130":PRINT “If A=3 then GOSUR 200" 

4040 PRINT "If А=4 then GOSUR 250":608UB &00:РКІМТ "If А‹=0 or Ахшяһег of line numbers" 
4060 PRINT "then the tallowing statement is executed":G0T0 800 





55 


56 





4100 Af=" ON БОТО ": 60508 900:PRINT F$:TAB(25); "ON A GOTO 100,150,200,250" 
4120 GOSUR 200: 50508 850:5070 4030 





4200 AS="QUT":BOSUB 9OU;PRINT F$ TART; "OUT A,R":BOSUR 500 
4220 PRINT. "Sends the number in variable В to the DCE-bus" 
4230 PRINT "The 8255 IC is used following the DCE-concept":G05UB 800:5070 800 





4300 Az" POKE":GÜSUB 900:РБІНТ Ға TARL, "POKE ЖЕРЕЙ,ЯҒР" 

4315 PRINT TAB(Z8); "POKE A,B":PRINT ТАВ(25))"РПКЕ 40000, 216": EESUB 500 

4330 PRINT "Stores value B into memory location А": БОСОВ &G0:LIST 4350: BOBUR 850 
4350 PORE 48935, 45 

4550 GÜSUB S50:CURSOR G,IO;LIST 4370;G05UB 850:CURSOR 0,8 

4370 POKE $8932, #FF 

4380 GOTO 800 


PRINT 





4400 Ag="PRINT’:GOSUB 900;FRINT Fé; TAR(25); "PRINT A,B,C" 
4420 PRINT TAB(28); "PRINT :PRINT TAR(25}; "PRINT "TOTAL 7; Т" 
4440 PRINT TAB(25!;"7 TOTAL": 80518 8001157 4450-4470 

4450 PRINT "A4SO":FOR Х2=1 TO GEPRINT (NEI 

4380 PRINT "4450" :FÜR Кӛзі Tü S:PRINT Y2::NERT:PRINT 

4470 PRINT "4470";F0R (Тілі TO S:PRINT HE, HET 

4480 GÜTE 800 





4500 Аф "БЕМ": БОСОВ 900:PR1INT F4; TAB(25)4"350 INPUT BEREN ASK МАМЕ ot nlayer'rBOSUB 800 
4810 PRINT “Allows comments inside BASIC programs” 
4520 PRINT "REM statements are not executed’ :G05UB 400:60T0 800 





4900 AS="RUN"SGNSUB FOG:PRINT FS; TAR(251;"RUN"SPRINT ТАВ (25); "RUN 100":50548 800 
4930 PRINT "Starts execution of a BASIC program im memory" :PRINT "All variables and arrays are clea 
red':6070 804 





5000  AS-'SAVE':GUSUB 9OQ:PRINT Бара 25; "GAVE" 

5020 PRINT ТАЗ; "SAVE "OTHELLO by JUL KABAS’":PRINT TAB(2S); SAVE M$"; 60318 500 
5040 PRINT "Saves on cassette or disc the current program in memory" 

5050 PRINT "You get the message : SET RECORD, START ТАРЕ, ТҮРЕ SPACE*:G070 800 






SAVEA [ 


m " omn 





5100 B£-"SÓVEA" :BOEUB 900:РЕТАТ FS; TABOB! "SAVEA A$ 'TUNE'" 
S118 PRINT TÀB(23); "10. SAVER АФ ° TUNE’ "SPRINT TAB(S): "1¢ САУҒА A$":508HB 500 
9150 PRINT “Saves an array on tape or disc" :GOSUB 500:0070 800 

















FREG ШЇ 


яз "ШО" GUSUE 900:РЕТЫТ :PRINT F$;TABCLL)S" SOUND 10950 FRED(A44G I" 
FOR 11218,0 10 5,0 STEP -1.0:CURBSOR 19, X2:PRINT СНЕ ОЮ) НЕН 

PRINT "Oscillator number 2909, 1 or 2" 

FOR 42=18.0 ІП 8,0 STEP -1 0: CURSOR EL EE: PRINT (НЕ ЧОРЫН 
PRINT "Envelope number : û ar i" 

FOR 1918.92 TO 11.0 STEP -1.0:CURSOR 22, XX:PRINT НЕ AOI; NEET 
PRINT "Yoluge D... io^ 

FOR i1-18,0 (ü 14,0 STEP -1.0:CHRSUR 25, PRINT CHRECIO NEXT 
PRINT "Mode 0, 1,2, 5" 

FOR Х5=18.0 TO 17.0 STEP -1,0:CHRBOR 27,XZ:PRINT CHEE LION МЕТ 
PRINS "Frequency in Hertz^:BÜ0SUR 850:РКІНТ СНАФ (121; 
A$="SOUND Z°:GOSUE 900 

SOUND 1 û 15 û FREG(@440,0) 

LIST 528050518 5295 

BOUND 1 û 15 1 FREG(440.i: 

IST S262:G0QSUB 5299 

Nû 1 û 15 2 FREGGI.QI:SDUND Í û 15 2 FRE0115000,0) 

eh GUSUR 5299:6070 800 

МЕ 100: 5QUND OFF :RETURN 





ШИ SOUND 





LI 
CT 
ә 


re 





nu 
LIST 82 
WAIT Ti 


I 
I 





5100 as-'SIOP':8üGUB 9G0:PRINT Fes ГАВ (25):"100 STÜPF*;:8QSUR 800 
5120 PRINT "Basic suspends execution of the program": PRINT 
5340 PRINT "To continue type CONT’: DUDU &00:6016 800 





KEEP 


5400 A= "TALK": БОЗЕ 900; PRINT Er TEC "TALE 8400" GUSLE Айй 





5420 PRINT ? Bv building up a table af parameters in memory" 
5410 PRINT " and sending this information ta the ascilistors" 


5440 PRINT * by the THLE command ":PRINT " It 15 possible to create vocal sounds":GüTü 800 





TRÜFF 


TRON ЯЗОН 





$500 Ag="TRON TROFE":80SUE SOOIPRINT Fes TABI 251,10 TRON"IPRINT (opt 281: "100 TROFF":BOGUE 600 
5915 TRON 
5520 PRINT "When BASIC encounters a TRON command," 

IRE 


5520 PRINT "all S in execution are displayed” 


1 1 
i + 
5540 PRINT "until а TROFF command is given” 
5590 ТЕОРЕ 
5555 BQSUB &QO:PRINT "TRACE WAS GN for linenuabers 3520-2240" GOTO 890 





$700 A= MAIT": 
3710 PRINT Få; TARUZS EAL SPRINT TAB (ZS) ; WALT МЕМ Id k UE 
718 PRINT TAB (28) “WAIT TIME т б ТАШ(25);*К is optional Hr 60808 500 
720 PRINT "i1! Read status of DCE port l esclusive OR^s with Ki 

3ü PRINT " and ñND's the result with J until result equals J";50SUB 800 
PRINT "(2) As (11, but I is a memory laction" 

PRINT * example : event check :WAIT MEM 4FDO0, 419°: 60508 400 

PRINT *i3) Delays program execution tor a tiae 1° 


PRINT * Time is in units of 20 milliseconds“ GOSUE cO: DOT 800 





ша GI cn (i 
Zu Ы 





57 


58 


от ШШШ 


H&z"UT'ISDSUE SOU PRINT ҒЫТАН ЫНЫ (command воде! ":6 
PRINT "Calls the Machine Language Monitor":PRINT "with th 
PRINT ТАБЫ DISPLAY: PRINT ылы GO: PRINT TARIS 

} I 








0508 890 

5 facilitigs:"rTñR0301: "L LOOK" 
ü); F FL" 

i (301 "f EXAMINE" 





5 
i 
1 
PRIN 





PRINT Tñ TTUTE" SPRINT Tá БН MOVE" PRIM 
PRINT ТАШ TOR EXAMINE" SPRINT TRIIGI; "R READ": Т IBB1301:"8 WRITE” 
PRINT FIALISE M: BOSK Боо: БОТИ 800 








5 ЯФ= AR F$: Wa IU. "HEARS БІ": БОСИБ BÜQrPRINT РЕПО 
37 FOR 2 FIF АННО, 5 THEN AYA) 
3740 PRINT ТАРС әры = “ҰН ТАН 22) CHR MEG); bin" АБА) =" RRS АУ NEXT! GOT Bon 









8000 BES"ASIN ACOS ATN':80SUB SOOrPRINT Eër TR 293: DEI DI GeASINIR) ASATNIB)":G0SUB 800 
Š ЕКІМІ "Returns arc sine, Re at argument" PRINT “Result is between -PI/7 and PI/2":6 
GSUE 50 


8450 PRINT "argument": ABUSI; arc sine" {ТАВ ; "ar 
$040 FOR X2=1 Tü 10:A=RND EIF s. TREN ñ= CH 
8080 PRINT indus ТАЗА: TAB СЗО 


asine";TáRi4al "arc tangent": GÜSUE 500 


nO 


ATNA N REYTT: GOTO 800 






; ;'é-AaLüG (Bi "s DUU 500 
PRINT "Returns antiiog base 10 of argument: 0808 600 

81200 PRINT :PRINT :FOR ігі Hn 10: А27) 
ent = 


5140 PRINT ТАС“ аганае АРТАШ ӘР CHR LOL ТТАР "antilog = ";ALDBIñ1:NEYT:GDTO 800 






Hii СНЕ СЗЯ CHARS С: 
k í: ; 


5270  HEXTIPRINT :NEITIBDIU 800 
















8500  A$z"SIN COS ТАҢ "iss PME БЕ TAE ID "A = (ШШ ñ = 5 

8620 PRINT "Returns the {caisine ‚tangent of the arqument";BOSUB 800 

5830 PRINT :FRINT “ar quae ant” айыры ы АЕ 201, "cosine"; ABUS): "tangent" :6OSUR 500 
5535 FOR =] Tü 10r8-RNÜIQEPL LIF RND(1D 240.5 THEN A=ARI-1} 

Š RINT АТАБ CIS SIN CAT STAR СТО) COSA! ТАВ CEST TANA) E NER TE GOTO 800 

















5700 AS="CURK":SOSUR 200:FRINT ЕФ; ТАВ (251; "h-CURI" : GORUE. &00 

8129 PRINT "Sets А to the X position of the LUREDR'TGOSUB 500: 60808 850 

5730 FOR 4420 Т0 S9:CURSOR £2,10:PRINT EHRE ASS} CURSOR 25, SPRINT "CURE = "ХА: 50040 1 ü 15 0 FREU 
Giu 

5740 WAIT TIME 2:50UND OFF :WAIT TINE 10: CURGUR SIG: PRINT CHRSiGZ)INEXT:BOTO 800 


ПИТТ АКА 


4900 Аф "СИРУ": GOSU SOD;PRINT FšsTaB(261;" 8 = DURY'IGÜSUE 500 

6820 PRINT "Sets à to the ¥ position of the сигосг "60508 200: 60508 850 

58530 PRINT CHR&(2HiriFÜR (LL TU Za:CURSOR 5, XZ:PRINT CHR$(2581 

6848 SOUND 1 ü 15 û FREGIGOQI;MAIT ТІНЕ 2:SQUNE OFF 

5890 CURSOR 40,1G:PRINT " TURY = "КАИ TIME 10:808506 S,XZ:PRINT CHRS(S2):NEXT:G0T0 800 





CURY 








1. 


$900  A-'EXP:GDSUB 900:PRINT F$;TAB(28); "A = EXPLY)":GOSUB 800 

4920 PRINT "Returns the value "e" (2.71828) to the power X";GDSUB 500 
4934 FOR fiel TO 10:6=RMD(20): iF БИІ 1150,5 THEN АА A) 
$940 PRINT ТАШЫ" ¥ = ТАТАН ЕН ЕНЕ 19 TART} 





B^ Y ЗЕБРА: ЕТЕ БОТО 800 





FRAC ШП 


7000 A$S"FRAC'GOSUR 900;PRINT Ft; TAR(25);"A = РАБОТ :GOSUB 500 
7020 PRINT "Returns the flaotimg point fractional part nf the arguaent":GOSUR 500 
7030 PRINT :PRINT :FÜR ігі Tü ЗАНОВО IF RND(Z)¿i THEN АА) 


7040 PRINT Top" argument = "ЗА; RB C22 CHRE CIO ТАВ (27% fraction = "3PRACCAIINEXT:GOTG 800 


FRE 





7100  A$z"FRE":GÜSUB 300: FRINT Fe TARN ie = FRE'SIGÜSUB 200 
7210 PRINT " Gives the number of bytes curr rently unused hy BASIC": GOSUR 800: 0070 809 





7300  A$z'"GETC':BüSUB 9UQIPRINT Fé: TARS p'G-GETC" t БОЗЕ 500 
7120 PRINT "8 is set ta the ASCII value of the char rater typed":PRINT "on the Eayboard":5DSUB 800 
PRINT ;FRINT PRINT "Hit some keys....":PRINT FOR Gei TO 10 


GYSGETC:IF 52=G THEN 7334 
PRINT TABS" vou typed "САБЗ СБУ" ASCII value = "SBEINERTIBOTO 800 











HEXS |j) 


1400 RS="HEXS" GOSUB 9ü0:PRINT ҒҰ;ТАВ425);783-НЕ4815)8:6 0508 500 
3420 PRINT "Returns a string of шш representing ӘРКІМ! "the hexaderisal value of the nunbe 
г X" 60508 509 

7430 PRINT :PRINT Em Stel Tü 10:634=RNDI65000) 

7440 PRINT TARI" value = "JAZ TBR(251:CHR614101:TABí27)1:" НЕН = RP'uHEXE(ALIINEXTISOIO 800 


| —— aF aaa " 


500  A$-"INP":GÜSUB 5 1 РУТА (2S) 1" hc INP OT": BOSUB 500 
th 


7920 PRINT "Reads byte present in the DCE-bus CARD 3 PORT ІЗІРКІНІ "and assigns it ta the varia 
Ме A" ein 400:G070 p 
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J&üü AS="INT":GOSUB 900:PRINT F$;TAB(25) ; "AZ INT EE)": GOSUR 800 
7520 PRINT “Returns the largest integral value less than":PRINT “or equal to the argument В“: 60508 


sit FOR (et Tü Lä Debt (Ou) 
7540 PRI 


HT Тав (91; "value = "iE: TRB GSP СКФ ELLO E TRE 2TH ET integer = *: INT(B):NEXT:GOTO 800 


RIGHTS ШЕННЕН LEN 





LEFT mm MID$ 


7700 AS="LEFTS Mis RIGHTS LEN":BOSUB 200 
2710 PRINT F$: TAE L28) E" BRELEFTS (8$, JI ":PRINT. TABII; "Bëchl Déi Ara, 
PRINT TAB231;° Bác RIGHTE(AG,4)°:PRINT ТАВ(25)) "BZLEN(AS) 7. GOSUB. 500 

PRINT "Returns a number of characters fram Hé": GOGUE #00: Ag="SGUNDGENERATOR” 

CURSOR 0, LZEPRINT "LENAS i4" CURSOR 40, 123:PRINT Af 

CURSOR 20, 2: PRI LEFT (8$, 5) = ТАРЫ POR Ізгі TO SPRINT СНЕ ($4) NEXT 
} í ны 40, 9:PRINT ñ$ | 

j = ЗАНОС FOR Kiel Tü GEPRINT СНЕ (94) NER] 

DN SCH HT is :CURSOR 40,5:PRINT ñ$ 

OR 20 РЕНИ "RIGHI£(a$ 4) = "TARGEO FOR (ci Tü 4:PRINT CHR$ (94) 5: NEXT 

5ü,3:PRINT RIGHTS og, 4716010 800 













m. 







UR 





LOG SEN А 





1900 с LOGT" GOSUR JOG: PRINT Fé; TAR ZDI; "ët DEI "SPRINT ТАБІ28)) "Аі ЕТІН "seüsll B 800 
79216 PRINT * LOG returns the natural logaritha of the argument";PRINT " LEGT calculates the logarit 
hm hase LG":G0SHR 800 

7950 FOR дігі 10 10200 






“SAE TAR ZO)" LOG = "ИОВА TARC4O) 


8200 Gé="POL':GOSUE 900:PRINT Ғ%:ТАБА250; "Gett (21250505 500 

3216 PRINT "Sets A to a numher between 9 and 255," PRINT "representing the position of pota, nr 2": 
BOSUR 200150508 850 

8220 HOGE SA:PRINT CHR#81121::PRINT "vou control 
8235 FOR Үйг0 Tü ҒӘК (e 15 Du 


some of these lines..." 


н 


9220 
0,0 VETS, АХ 20 


8250 МЕХТ:МЕХТ: 8010 800 


PEEK НИНУ ve 






CURSOR УЗО, РЕНТ "РШ "Үр "=" АШКАН YLISO0 YRESO АЎ ЖИНАП TIME S:DRAH YARS 





9500 at="PEER*:G0SUB 200:PRINT Fé T8RBí251;"B=PEEKIB)":BOSUB 500 
8310 PRINT "Sets ñ equal te the contents of adress B':8ÜSUB 400:6070 gn ` 


FET 


3400 A$z"PI':GÜSUB 900:FRINT "Returns the floating point value 3, 14159":6010 800 








8400 A$="RMD":SOSUR 900:PRINT Fe: TAB(25)5"ASRND {100} "SPRINT ТАВ (25); "A-RND(1) 4100": PRINT TARZ: "A 
zRNDi-IP'IPRINI FAECES "A= RND CO)" BOSUE 800 

8510 PRINT "Generates а software or hardware (RNDiGi) random number":PRINT "FOR XZ-1 TO iGsPRINT TA 
Bilo; "RNDCLOG ="; TABC20 САМО (100) :NEXT: GOTO 800 








— 


8700 A$="SCRN":GOSUB 900:PRINT ЕФ: ТАЕ (25) ; "A=SCRNU, Vi": EOSUR 500 

8710 PRINT “Sets ñ equal ta the colour number of the screen":PRINT "at coordinate à. Y" 1 GOSUB 
8/20 GUGUR Sû: HODE 1A6:PRINT CHRE((2}:FOR (9-0 TO 52 STEP 2:007 30,84 КМОТ: МЕТ 

8750 FOR (eu Tü 32 STEP 2:45=5САМ (20, AXI DRAN 0,37 25,4% АТ: КАЙ 35,4% IMAX, EZ AZ 

8740 CURSOR 9,2:PRINT "SERN "ре: ITE "WAIT TIME STT 800 








8800  A$="GGR":GOGUR 900: Шы m TARC25) "ASSEN 01": GOSUB 800 


8810 PRINT "Sets û tai it bb ‚Uit ій, -i it назв зоб: GOTO BOO 


ы 








9000 A$="SPU":BOSUR BOO: PRINT F$; TARAS; PRINT SPC/101;...":iBUSUB 600 

9010 PRINT "Returns a string af a М of spaces” POUR 800 

3020 PRINT ;LIST 9n40:FRINI 

9030 FOR Тігі г ML TAR (RND 10) I CHRE LG) E RRSERND (40) E PRINT BPCURE) CHRE (i0); "SPCC RE" PRI 
НГ :МЕХТ: БОТО B 





век D 


9100 8$-"SER':GÜSUR SOU:PRINT Fi; TBB2S) s "A=GOR (E! "BASUR 600 
9110 PRINT "Gives the square root of the argument":GüSlR 500 
9120 PRINT ТАВ 201 p “argument "5 TAR(dG); “square root 160508 500 
9120 FOR (ei Tü 19:B2=RND0000001:R=SBR(BZ):PRINT T8B(20):B2:TaR140);:B:NEKT:SOTO 800 


VAL ВАО 


3200 AS-"STR$ VAL"SGOSUB 900:PRINT Fé; ТАВ (ZS) ; "A$=STR (X) "SPRINT TAR (ZS) p "ASVAL (AS) ":GOSUR 500 
9210 PRINT "STR$ returns a string which is the ASCII representation of x" 
3220 PRINT "VAL returns the #pt value of the number in the егіле БИШЕ 800:6070 Bon 








2 |. 





9300 АФ= "ТАВ": ОЗШЕ 900:РЕТМТ FE; TAR(25); "PRINT TüB(30);...":G0SUB 500 
3310 PRINT "Maves the cursor tn the desired coluan":GOSUR 800 

9328 FÜR Y2=15 TÜ 3 STEP -I:8Z-RND(4Q) CURSOR AZ,YTIPRINT CHRÉ(2S8); " TAB 502; " "WAIT TIME 50: НЕХТ 
25070 800 





УАЕРТЕ HHN 





9600 АФ="УАЕРТК": 50508 SOO:PRINT ЕФ:ТАВ(25);" A=VARPTRIB)":PRINT TAB Z5 "ДеМ ЕРТЕ ЫЗ, 4739: COEUR 5 
ag 


3510 PRINT "Variable À is set to the memory address of &";G0SUB 8005070 800 


MOD 





9900 ñ$="MÜD":GDSUB 900:PRINT FR; TAB (25) "а = X MOD Dr: POUR 500 


3910 PRINT "A equals the remaining part af X;B':805UB 600 


3520 PRINT ;FOR (Ізі TO LO:AZ=RNO(100):BLSRND {4) e3: PRINT ТАВ (203 а)" MOD"; ts" =";à1 MOD BZ:NEIT:G ` 
070 800 DES 
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EXPERIENCES WITH DAI VIDITEL 


At the Utrecht meeting of HCC I bought the DAI VIDITEL program as 
developed by Hans de Vries c.s. and requested for a Viditel 
subscription from PTT. 


In the weeks that followed I had to wait for my Viditel modem to be 
delivered by ЕТТ as a part of the Viditel subscription. But the DAI 
VIDITEL program could be used already. In its local editing made 
viditel-like screen lay-outs can be composed. This offers an easy to 
handle alternative for the preparation of text frames to be copied 
onto colour slides ! | 


The modem came within three weeks. In that per iod I alsa assembled 
the connection cable, so the Viditel computer could be called 
immediately. | 


It is а pleasure for me to report a smoothly operating DAI VIDITEL 
program. By the fact that the complete DAI keyboard is used the 
potentials of Viditel are much greater for DAI users than for people 
using а special Viditel tv-set. By the so called Vidibus function I 
could sent a letter with my first impressions to the designers of DAI 
Viditel. Note, that this way of corresponding is cheaper than sending 
real mail ! 


Another facility made possible through DAI VIDITEL and the FTT modem 
is a connection with the Viewdata computer of NOVA Automation 
Conultants. This private viewdata system is accessible for HCC members 
(free of charge). They can both access it for retrieving stored 
information pages, but also for storing their own information pages 
onto it. Further, it offers program development and processing 
functions which are available in combination with the viewdata 
functions. 


According to my ‘software philosophy programs should be seen as 
‘tools’: simple products which perform a single well-defined task 
which results into output that can be processed further by another 
tool. Following this philosophy I would like to offer the following 
suggestions to the designers of DAI VIDITEL: 
1. do МПТ add any more bells and whisties to the program. 
2. change the program into а module; i.e. make it posible to call the 
program as a module from within another module or basic program. 
It is my strong opinion that by following these suggestions the 
designers of DAI VIDITEL will be able to provide the DAI users with a 
powerful tool that they can extend themselves according to a variety 
of wishes. This can lead to a stream of ideas and applications for 
which the DAI VIDITEL module is crucial. It frees the designers from 
the implementation and management of а never ending stream of 
"improvements". The latter in fact better can be programmed by other 
people, thus enabling the designers to devote themselves to more 
advanced problems. р 


Supplement to DAI VIDITEL documentation: 

i. The english pound sign (ASCII 25) сап be entered by SHIFT-TAB; the 
graphics symbol corresponding with this sign also сап be entered by 
SHIFT-TAE. 

The at-sign (ASCII 54) can be entered by SHIFT-G (zero). 

. The right arrow and left arrow (ASCII 95 and 91) are entered by. 1 


ығы 


Fostbus 11044, 2301 Eñ Leiden, tel.071—411769, viditel #224041 1 
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and Г respectively. ' 
4. The release graphics sign (ASCII gu 
CTRL-SHIFT-CHARDEL. - 
5. Other peculiarities are: 
Sign: ASCII: How to enter: 
1/2 92 ТАН 
US FA CTRL-SFACE 
1/4 i23 CTRL-; 
11 i24 CTRL—< 
2/4 125 CTRL-- 
Recommended literature: 


1981. 





J.J.M.Bokland. Viditel: techniek voor de abonneeaparatuur; The Hague, 


F. van der Hi jden 


Benodigde Viditel-apparatuur 


1. Een aangepast TV-toestel met afstandsbediening, bureauterminal of hobby-computer. 
2. Een telefoontoestel. 
3. Een modem (dat door de PTT wordt verstrekt zonder extra kosten). 


Viditel-randapparatuur 


De PTT verhuurt Viditel-randapparatuur, waaronder: 

0 de Viditel-bureauterminal (VBT-003), bestaande uit een combinatie van kleurenmonitor en 
alfa-numeriek toetsenpaneel; | 

о de Viditel-printer (VPE-403), voor het maken van afdrukken van Viditel-beelden op papier; 

o de Viditel-printertussenschakeleenheid (УРІ-403), om in de handel zijnde matrix-printers 
aan te sluiten op de Viditel-abonnee-modem; 

o de Viditel-automatische nummerzender (VCG-901), voor o.m. het automatisch uitzenden 
van het toegangsnummer, code en eventuele privé-code; 

o de Viditel-invoerterminal (VIT-003). 


Viditel in de toekomst! 


Tot nu toe kunt u met Viditel al diverse kanten uit. U kunt informatie opvragen die voor u 
belangrijk is. Daarnaast is het mogelijk om via antwoordbeelden bestellingen te plaatsen bij 
bedrijven en berichten te versturen aan andere Viditel-abonnees. 


Begin 1982 worden de mogelijkheden met Viditel verder uitgebreid door de zgn. Gateway- 
functie. Een abonnee kan dan met deze functie via Viditel gekoppeld worden aan (externe) 
computers van bedrijven en instellingen, waardoor hij over steeds meer en betere 
informatie- en communicatiemogelijkheden kan beschikken, zoals: het boeken van reizen 
-met ontvangst van reserveringsbevestiging - , het overboeken van geldbedragen op 
rekeningen, het laten uitvoeren van berekeningen, het bestellen van produkten enz. enz. 


Wilt u meer weten over Viditel, 
vraag dan informatie bij: 


Centrale Directie der PTT 

Directoraat Commerciële Zaken Telecommunicatie 
Bureel Viditel 

Antwoordnummer 6000 

2500 VB 's-Gravenhage 

Een telefoontje kan natuurlijk ook: 

(070) 75 32 69 / 753392 / 754074 
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Wanneer men Viditel-abbonee wordt krijgt пеп automatisch het 
modem te huur а f10,- per maand, de 4-aderige kabel wordt 
NIET door de PTT geleverd. 





VIDITEL AANSLUIT-GEGEVENS VOOR VIDITEL 


ц - aderige -kabel 
telefoon. lijn 


(afgeschermd) 25-polige 
L connecter 
И 
"Ln 
Uhh ` | те S 
Pas vii -stekker 9 "ona ctay 
4 stekdoos 


= 






Let EA | 
-. 
- 





cassette - 


1% 1. recorder 


25 polige-connefetor 








РОР РУ АР АРУ ЛЭ de АРУ УТ VE 
` % ў AANSLUIT-GEGEVENS 
Ampenol: aarde 5 1 
` ее & serie in 4 3 
serie out 3 2 
DTR 7 8 


MODEM: 


Amphenol: 
17-90090-16 &. 


17-1370 


leverancier RODELCO 
64. 


(DTR=Data Terminal 
Ready) 





DAI-VIDITEL kent alle standaard VIDITEL-attributen. 
Zoals bv. 
8 ' kleuren. 


Grafische symbolen & 'gescheiden' grafische 
: Dubbele hoogte karakters. symbolen. 
Flashing. 
enz. 


Er is geen enkele harduare-uitbreiding of aanpassing 
in de DAI nodig. 


De beeld-opbouu geschied met behulp van een 16 kleuren 
grafische mode.  (gelik aan mode 5) 


Het programma is geheel in machine-code geschreven en 
beslaat ongeveer 35К geheugenruimte. 


Het toetsen-bord is zodanig aangepast dat het mogenlijk 
is de DAI te gebruiken voor het editen van viditel- 
pagina's, 

Uiteraard kan men het toetsen-bord ook gebruiken voor . 
het verzenden van ‘electronische brieven! via de 


Viditel-VIDIBUS service, of het verzenden van 'Antuoord- 
pagina's aan Viditel informatie-leveranciers. 


em کے‎ = = = = = = — —— Ep = — — — -- хе = = — < — s  - کے کے — کے کے کے کت‎ E ie ne _ کت‎  — s «к»  — — ee ee مہ‎ 
=== =É ыы 


Edit-mogenlijkheden: 
Break: full duplex, Break Break: half duplex enz. 


Ctrl 0 : cursor on 
Ctrl T : cursor off 
Ctrl L : clear 

Ctrl t : home 


Сїг1 [ : Е5САРЕ 


volledige cursorbesturing 


ESCAPE-functies 

ESC A : alfa-numeriek rood ;ESC Q : grafisch rood 

ESC B : alfa-numeriek groen ;Е5С В : grafisch groen 

ESC C : alfa-numeriek geel ;ESC S : grafisch geel 

ESC D : alfa-numeriek blauu ;Е5С T : grafisch blauu 

ESC E : alfa-numeriek magenta ;ESC U : grafisch magenta 
ESC F : alfa-numeriek cyan ;ESC V : grafisch cyan 

ESC G alfa-numeriek uit ;ESC U grafisch uit 

ESC H : flash ;ESC Y continue grafisch 
ESC I : steady SESD Z gescheiden grafisch 
ESC 3 : End ;ESC L normale  hoogte 
ESC K : Start ; ESC M dubbele hoogte 
ESC ] : nieuwe achtergrond ;ESC Í grafisch 'houdend'! 
ESC TAB: zuarte achtergrond ;ESC shift TA8: release 


Voor off-line editen (het maken van beelden zonder dat 
viditel із aangesloten): 1 toets de 'BREAK'toets in. 
| 2 druk op de 'CTRL'toets en 
toets tegelijk де 'Q' in, 
(cursor on). 
65 
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Enkele belangrijke geheugen-adressen : 2 

% 301, : Geheugen-grootte : СО bij 48K en #80 bij 32K 

# 303, : ASCII-pagina : #54 bij 48K еп #14 bij 32K 

# 304 t/m % 308, : Gebruikte kleuren voor achtereen- 

volgens: zwart, rood, groen, geel, blauu, magenta, суаап еп wit 


HANDLEIDING VOOR HET HELE GEZIN: HOE KRIJG IK VERBINDING 
MET VIDITEL? 


stap 1. Is de DAI met de telefoon verbonden? (via de modem) 
Zo nee: Maak de verbinding door de 25 polige 'stekker' 
vanuit de modem in de 'RS232 bus! уап де DAI te 
steken, deze bevind zich aan de achterzijde. 


stap 2. Zoek de Viditel-cassette en stop deze in de cassette- 
recorder. 


stap 3. Zet de TV aan. 


stap 4. Zet de DAI aan, de schakelaar bevind zich aan de 
rechter-achterzijde. 


stap 5. U krijgt nu een groen (gris) beeld met in grote 
letters: DAI PERSONAL COMPUTER. : druk een 
willekeurige toets in. 


stap 6. Er is 'BASIC'! op het scherm verschenen. 
U geeft nu de computer z'n eerste instructie: 
Тур UT іп en druk op de 'RETURN'toets. 


stap 7. Er is nu 'UTILITY' op het scherm verschenen; 
geef de tueede instructie: 
Тур 23 іп en druk op de 'RETURN'toets. 


stap 8. Het moment is nu gekomen dat U het Viditel-programma 
vanaf de cassette in de DAI. kunt gaan lézen: 
1.. Typ R in еп druk op de 'RETURN'toets. 
2. Start de cassette-recorder. 


stap 9. Als het programma ingelezen is verschijnt er weer een'>'. 
Het DAI-VIDITEL programma kan nu in werking worden 
gesteld: Тур G400 еп druk de 'RETURN'toets in. 


stap 10.20, het programma loopt, het beeld wordt zwart. 
Bel nu naar VIDITEL: 
020-318318 voor AMSTERDAM of 
070-151515 voor DEN HAAG. 


stap 11.Als u de hoge piep-toon hoort, druk dan op de groene 
knop aan de voorzijde van het modem, en leg de hoorn 
weer op de haak. 


stap 12.VIDITEL presenteerd zich. 
Typ чи toegangsnr. in : ............. 
Typ uu code-nummer in : /............. 
En typ eventueel uu prive-code-nummer in : ....... 


U bent nu met VIDITEL verbonden.  Veel genoegen!! 


***VIDITEL is standard in Belgium,Holland,UK & Germany. 
***latest version has extra features for printer and cassette/DCR 
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: DAI FERSONAL COMPUTER CLUE ' 





М. Е. HERMANS 
t HEIDE 98 

i WESTMEEREEEF 
_ BELGIE 


: CONTACT-ADHES 





toets 








Viditel 18010 
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: RAR LC : 
Een 
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1 Krantel Studio 64908a осі 
d J. WALTER THOMFSON COMPANY i 


E =" | 





voor kennismaking 1 ind 


jwt i 





Krantel Studio 649084b 





JOUM 
GENERATIE 
WERKT 

BIJ RANDSTAD 


. vervolg 1 
Š indes тө: JwT | 





Data 301066 Oct 


МЕТ - : 
и OFF ICICFL ! 
TOF 














Vries Data 


OO HOF DOME NE жа 


CA TELE-SOFTWARE (nog 





AGENDA | 
ACTUALITEITEN 


GRAFISCHE FOG INGEN 





DAINAMIC ! 
¦ № RESERVE 
Ш RESERVE 


8 NIEUWTJES ALLERLEI 





? INFO VOOR DAI-GERRUI 












! Faq 090 SYSTEM 906 min ! 


PATA 


HARTEL 1 Ar DANK YOUR UW INTERES, 








EN GRAAG TOT EEN VOLGENDE HEER 








649084c 





ШЕРҒ ONZE NAAM KLEEFT OO 


AAN ^T NIETIGSTE DFUFWERE. 








i DATAVISION 


š —f-a rn 
i XXXXX HOOFDINDEX жжжжж 

i 1. WAT IS ABC-DATAVISION >> 

1 Ш. ALGEMENE INDEX. 

INFORMATIE AFC-Data В.У. (NIEUW!) 
PRODUKT INFORMATIE. 

+ BEBRUIKSAANWIJZING. 

LIJST VAN ONDERWERFEN. 

GRAFISCHE VOORBEELDEN. 

HOBBY AANEIEDINGEN 

EDITING, Alleen voor 1.Р. `5 





п. 
5 
L 
7. 
8. 
9 


Toets het nummer van Uw keuze. 





649084m 


FORD, MEER WAARD OF DE WEG. 


vervolg 
© index jwt JWT 








Vries Data 








VIDITEL ОР DE DAI FC 


| Machine code programma start op 4400 


Volledige Handleiding komt in NOVA 
en in DAT-NAMIC 











aan JÉJRG DE VRIES, 

e streen copies op 
BY reduceerd formaat, 
Laat uw abonneenummer kennen 
ais je er ook bij bent s 


ў Š 6490840 


= 


ZACHTHET 
WAAROF JE ALTIJD 
MAG VERTROUWEN. 





vervolg i 
© index jwt тыт 


Krantel Studio 


N ZONDER Ki 





i | VERVAARDIGD VOOR POSTEUS Sł 
!  CONSUMENTENINFORMATIE JwT 





_VIEWDATA 
3000 


Thank you for calling. 


Please call again. 








| Philips ` 
, Matuurkundig ` 
‚ Laboratorium 


= Vieudata = = 


are voor besloten gebruikersgraepen 
77 Voor inlichtingen:  O40-742077 





Mag ik uw gebruikersnummer ^ i 








 DAIMMAMIC ` 


LOL OE DN 








i vries Data 
1 DAI USERS O 





1 5506 JRIRG DE VRIES — (1L) :20106 

H BUNCHESTR. 26 } 
П 2786 GL RIJSWIJK (Z-H) i 
р TEL. 070- 
i VID. 40000 





: 5 R.DEN BREEMS 
š KROONSTADDREEF 27 
р 3067 RT ROTTERDAM 
2 TEL. 010-551234 
! VID. 400004352 

! 5539 SJEF VAN BERLO 

1 G.GEZELLELAAN 5 

р 2624 КТ DELFT 

I TEL, ф15-565440 

] VID. 32722722? Verv. 





Zend antwoordpagina toets 9 











i Vries Data 30106916 ос! 
В DAI USER'S OP VIEWDATA/3000 Pag.2 


CIL): 3015529 
v.BUERENSTRAAT 12 

DUD HEUSDEN 

TEL. 04162-2667 


VID. 777777777 


i B539 THEO VERBERKT 


5548 PIETER v/d HEIDEN 
VODRDORF 52 
235? BT LEIDERDORF i 
TEL. 071-411769 : 
VID. 400004581 


552? 


Verv. 


p.v.b.a. A.C.S. 


Meensesteenweg 49 
8800 ROESELARE 
Tel. 051/21 30 89 


Beenhouwersstraat 87 
8000 BRUGGE ` 
050/33 08 01 


Guibernau Electronica, sa. 


Sepulveda 104 - 
BARCELONA-15 (SPAIN) 
Tel. 243-34-32 


LEGOTRONICS 


` Kon. Albert | laan 97 
8800 ROESELARE 
Tel. 051/22 01 03. 


% 


MICRO SELECT 


Toutes applications micro-électroniques 
Vente de systëmes et composants micro-processeur 


3, rue Delcloche 
4020 МЕСЕ 
Tel. 041/41 28 10 


Publishing House J. VAN IN 
att. : L. CAMPS 


Educational Software 
primary - secondary schools 


Grote Markt 39 
2500 LIER 
Tel. 031/80 55 11 





D.I.L.-ELEKTRONIKA, 

MIJNSHERENLAAN 108, 

3081 СН ROTTERDAM 
Nederland 


TELEFOON: 010 - 854213 


IDS 2000 


Rue de la Bonne Femme 11 
4030 GRIVEGNEE 
Tel. 041/41 32 20 


. MEMOCOM 


Mini-digitale cassetterecorder 


Postbus 2924 e 
3000 CX ROTTERDAM - Nederland 
Tel. 010-148284 


-< Bennenbergweg.1 
3221 NIEUWRODE (bij AARSCHOT) 
? Tel. 016/56 87 70 


` DAI- Epson Printers - Memocom digitale cassette 


recorder - Barco kleurenmonitor - Software - 
Microlectuut - Service 


D 


TEVETRONIC 


Avenue Milcamps 57 
1040 BRUSSEL 
Tel. 02/736 61 24 


